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User's Reference to B for Honeywell Series 6000/66 


By RP. Gurd 
University of Waterloos 


Waterloos Ontarios Canada. 


QO. Introduction. 


This manual describes the programming language 8B 
accepted by the compiler written at the University of 
Waterloo by R. Braga. It also introduces the runtime 


package written at the University of Waterloos largely by 
TeJ. Thompson, 

A derivative of BCPL»- B was designed and first 
implemented by 0.M. Ritchie and K.l. Thompsons of Bell 
Telephone Laboratoriess Incas Murray Hills NeaJ« The original 
implementation of the runtime package is due to $.C. 
Johnsons also of Bell Labs. 

The present version of the compiler differs from the 
original by incorporating an expanded SWITCH statement, 
adding floating point operatorss adding proper logical 
operators, and altering the order of evaluation of 
operators. 

The runtime package works in both TSS and batch and 
wilt read almost any “media code” found in the GCOS 
environment. It uses EIS instructions whenever it 1s 
appropriate. Note that the language itself has no 
constructs for input/outputs all i/o is done by’ function 
calls. 


B is a typeless Languages in which the compiler always 
assumes the type of a variable is suitable to the operator 
acting upon it. 8B has a large set of operatorss providing 
integers bitwises logical and floating point operations. 

The machine word is the basic unit of computation. The 
word size on the Honeywell Series 6000/66 machines is 36 
bits. 

A B program consists of procedures called functions. 
Any function may call another function ors since tocal 
variables are allocated on a stacks call itself recursively. 
Atl functions may selectively access a globat pool of 
externalis. 
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A function 71S composed of a set of one or more 
Statements. A statement is composed of permissible 
combinations of keywords and expressions. 


Although this 1s a reference manuals and definitely not. 
a tutorials, it 1S Organized such that you will often find 
examples which involve material covered later on. FATS 28 
intentional. Such examples should be ignored at first 
readings but will hopefully be beneficial when you refer to 
the manual again. 

You should try to keep your first efforts at 8B 
programming as simple as possibles in order to minimize the 
difficulties you may encounter. If you are ever unsure. of 
some feature of the Language or run-time packages try it out 
by writing and running a simple tULittle program which 
exercizes only that feature. The time you take to do so may 
save you a lot of trouble in the long run. 

Before starting on your first major B programs you 
would be well advised to have a close look at the source 
code of a well-written B program or two in order to get some 
idea of exactly how things are done. 


1. Basic symbols. 


B is very much oriented towards use of the ASCII 
character set in which each character occupies nine bits 
(four characters per word)... There 31s support for 
representing character constants in the BCD character sete 
In which one character occupies six bits (six characters per 
word). 

Certain characterss such as *{* or *}*, do not appear 
on some terminal keyboards. Escape sequences for these are 
defined in Appendix A. 

The compiler treats its input as an unbroken stream of 
characters. Any form feeds tab or newline character is 
converted to the space characters except when it occurs 
inside a string or character constant, Newlines are 
counteds so the compiler can telt you on what line it 
detected an error. Line length may be arbitrary. The 
compiler knows nothing about any "sequence field”, such as 
is supported by certain card-oriented compilers. 

Line-numbered source files are permitted. If the first 
character of a line 18 a digits the compiler assumes the 
program being compiled has line numbers, If soe on each 
line of the file, it attempts to form a line number by 
collecting numeric characters until a non-numeric character 
is found. The number is used in error messages pertaining to 
that line. 
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1.1. Identifiers. 

An identifier or name is formed from the characters 
a-ze Aw2Zs 0-9 underscore ('_') or dot (%.°)s and must begin 
with a nonwdigit. 

Names may be arbitrarily longs but only the first eight 
characters are significant. For external names or external 
referencess only the first six characters are significant, 
due to the restriction imposed by the GCOS and TSS loaders. 

Normally» the compiler ignores case distinctionss so 
that the identifiers "SUM", "sum" and “Sum” would be 
considered to be the same thing. You may specify an option 
to the compile command which forces the compiler to respect 
case distinctionsse but then all keywords must appear in 
lower case. 


1.2. Comments. 

The beginning of a comment is signalled by the 
appearance of a "/*" in the input stream, It 18 ended with 
the first occurrence of a “*/" any number of characters or 
lines later. For examples 


/* 
* this 31s a comment 
x] 


Comments may not be nested. 


1.3. Keywords. 
B uses 15 keywordss which may be categorized as 
follows: 
1) identifier scope keywords: 
AUTO EXTRN 
2) execution flow control keywords: 
it ELSE FOR WHILE REPEAT SWITCH DO 
3) transfer keywordss 
RETURN BREAK GOTO NEXT 
4) switch statement keywords: 
CASE DEFAULT 


The compiler does not allow you to use any keyword as an 


identifier. In particulars beware of inadvertently using 
"next" as an identifier. 


1-4. Constants. 

You may define octals. decimals floating points, ASCII 
characters BCD charactere or string constants in your 
program. The form of a constant 1s well-defineds in that it 
is possible to unambiguously differentiate between the 
various types of constants. 
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1.4.1. Decimal constants. 


A decimal constant consists of an integer numbers which 
may not contain leading zeroes. For example, 


ae 4737 981 32 


1.-4-2- Qctal constants. 

An octal constant consists of an integer number, 
preceded by a zero and formed only from the digits zero 
through seven. For example: 


01 O77 026 0400000 O7 77777777777 


1.4.3. Floating point decimal constants. 

A floating-point constant is any number containing a 
decimal point. It must not begin with a decimal points but 
may have leading zeroes and may be followed by the (etter 
*e’ and a possibly signed integer exponent. Examples: 


bee °c Ts c.> 12.€5 3.e€5 4.987e-2 


1.4.4. ASCII character constants. 

An ASCII character constant consists of from one to 
four characters inside single quotes. The result is a word 
which contains the internal form of the ASCII characters, 
rightradjusted and left-padded with zero bits. Some 
examples: 


ge *abc’® ‘abcd’ 


The compiler counts characters inside character constants 
and issues an error message if there are more than four... 


1.4.3. BCD character constants. 

A BCD constant consists of from one to six characters 
enclosed by grave accent characters. The result 31s a word 
containing the characters transtiterated to BCDs right 
justifieds and lLeft-padded with zero bits. Characters which 
do not have an exact equivalent in the BCD set are converted 
to BCD blanks. Here are three examples of BCD constants: 


= 3 es oe *123456° 


If your terminal does not have a grave accent character you 
may alternately alternately write a BCD constant like an 
ASCII character constants except preceded by a dollar signs 
as in 


$a? $* ot’ $°723456° 
Note that the runtime package provides functions to 
transliterate between ASCII and BCD and that the i1/o 


function PRINTF will take a BCD format specification. 
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1.4.0. String constants. 
A string constant is any String of characters enclosed 
In double quotes. For examples: 


“this is a string” 


6 #8 


“the above is the null string” 


When processing a strings the compiler packs the characters 
of the string four per word and always appends one extra 
characters an ASCII null (000). to mark the end of the 
string. 


The yalue of a string is quite different from the other 
types of constants. The value of a floating-points, octal, 
decimal or character constant 1s a word containing the 
internal representation of the given constant. The value. of 
a string constant is a word containing a pointer to the 
string in the lower 18 bits. 


In constructing the strings the compiler gobbles all 
characters it sees» translating escape sequences if 
necessarys until it finds a closings unescaped double quote. 
The rule which Says tabs and form feeds are ignored does 
nots of courses apply in this cases but reat newlines (as 
opposed to escaped newlines) are treated specially. If a 
real newline is preceded by a ***»s both *** and newline are 
thrown aways, $s$o you can enter a very tong line. If the 
newline is not preceded by a ***, it is keptse but a warning 
message iS issueds ON the grounds that you probably forgot 
the closing string quote. To get a newline in the string 
without drawing a warnings use the escape **n*., 


1.4.2. Escape sequences. 

Escape sequenceSs beginning with the character ‘*"'s are 
defined to allow you to uses, in a string or character 
constants characters which would otherwise be inconvenient 
or impossible to enter. For examples if you wanted to place 
a double quote inside a string constants you would use the 
escape *",. The special end-of-string character (ASCII nutl) 
is escaped as ‘'*0*. The newline character 7S escaped as 
as bee A newline is taken as a carriage return and a line 
feed when output to ae terminal, Arbitrary nine-bit 
characters can be generated with "“*#nnn", where nnn is one 
to three octal digits. The complete set of escape sequences 
1S given in Appendix A. 
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1.2. Source file inclusion. 
If the compiler encounters in the source program a line 
of the form 


%Zfilename 


it suspends processing of the current file and begins 
collecting input from the specified file. When end-of-file 
7s encountered in the included files processing in the 
original file resumes at the next Line following the file 
inclusion request. Such included files may themselves 
contain "Z%filename”™ requests pointing to other files. 

The *%* character must be the first character on the 
lines not just the first non-blank character. If the line 
has a line numbers the *%* must immediately follow the line 
number. 

The file name given may be in any. of the forms 
acceptable in the TSS environments, such as 


ZAtemp 

Z/main.b 
ZAtfbaggins/dif.b 
Afbaggins/s/dif.b 
010% fbaggins/s/dif.b 
etc. 


This allows you to keep parts of a large module broken. 
up into easily manageable filess while retaining the ability 
to compile the files together. File inclusion is also often 
used to bring in a file of manifest definitionss such as TSS 
Derail equivalencess which a variety of possibly unrelated 
programs might find useful. 


1.6. Compiler girectives. 

Any tine whose first character is a *#* is assumed to 
be one of the compiler directives shown below. In each 
cases "<text>” denotes a string of characters which begins 
with any nonw-blank character. 


Htitle <text> 


wilt place "<text>” in the comments field of any $ OBJECT 
card written from the time the directive is encountered, 


Hlbl <text> 


will place “<text>", truncated to eight characters if 
necessarye in the “deck name” field of any $ OBJECT or $ 
DKEND card written from the time the directive 1s 
encountered. If this directive has not been encountered 
when it comes time to generate an object decks then the 
current file name is used instead. 


#ttldat <text> 
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After being truncated to six characters if necesSarys 
“<texts" ts used to fitt.in the **8tt” date fietd of any $ 
OBJECT card written from the time the directive is 
encountered. 


H#copyright <text> 


is taken as comments. 
Here is an example of the use of all four directives: 


#ritle tss login subsystem - .tslog 
H#lbl tlga 

Httldat 771209 

Hcopyright (cc) by the University of Waterloos 1977. 


2- Ihe building blocks of a B program. 


A complete 8B program consists of at least ones but 
uSually manys modulese~« A “module” is any of the following: 


1) a manifest constant identifier definition. 
2) an external (global) variable definition. 
3) a function body definition, 


Modules may appears and the different types intersperseds itn 
any order at alls with the sole proviso that the definition 
of a manifest identifier must appear before the identifier. 
is first used. 

Manifest definitions are used to associate a name with 
a compile time constant. 

External definitions are used to create a global pool 
of possibly initialized identifiers. This pool might be 
used to declare large blocks of memorys or to declare 
identifiers that must be accessible to more than one B 
function. Since anexternal is global in scopes’ any 8B 
function may use its but only after declaring its intention 
to do so in an EXTRN statement... 

A function definition is used to declare a component of 
the executable code of the program. The definition includes 
the name the function will be called bys the arguments it 
will be called withs and the statements which define what it 
will reference and what it will do. 
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2el. Manifest constants. 


A manifest constant has the general form 


name = texte 


where "name" is any valid identifier and "text™ is the 
collection of characters between the equals sign and the 
semi-colon, 

When a manifest is defineds the compiler enters’ the 
identifier in a symbol table associating it with the "text", 
which it keeps in an internal buffer, Absolutely no 
processing of the “text” is done at the time of definition. 

When the compiler reads an identifiers it first checks 
to see if the identifier is a manifest. If sos the action 
taken is to substitute the text of the manifest for the 
identifier. For this reasons it is not possible to speak of. 
redefining a manifest and any inadvertent attempt to do so 
wilt usually result in a syntax error. Substitution 
effectively takes place before the syntax analyzer scans the 
Line. Manifests may be used anywheres, including inside later 
manifest definitions. 

Because the compiler does not analyze the text of the 
manifest until substitution takes places it is possible for 
the text to refer to a manifest which is defined after it, 
as long as the definitions of both appear before the _ first 
USC. 

The use of manifests has no effect on the order of 
expression evaluation. For examples look at the definitions 


A. 2042 
B = AtA; 
C = B*B; 


When "C" is used somewhere else in the programs the compiler 
will actually get "14+1*1+1"%, which will be evaluated as 
three and not fours as one might mistakenly assume. 

The compiler permits nesting up to 10 tevels deep of 
manifests inside other manifests. 

Normallys howevers you wilt find manifests quite 
natural to use. Here are some examples of manifests: 


VECSIZE = 63, 
vec C VECSIZE J + 


22 ® 


for( i = OF 41 <= VECSIZEs ++1 ) sum += vecli), 


The manifest “vecsize” is used to establish the size of the 
vector “vec” at compile times and later used to control 


iteration in a FOR statement. 
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/* binary List structure */ 

NULL = =1; EMPTY = O- 

CONTENTS = O- 

LEFT_PTR = 13 

RIGHT_PTR = 23 

printree( ptr ) 
if€ ptr != 

{ 


NULL ) 


printree( LEFT_PTRUptr] )- 
print_contents( CONTENTSCptr] ),- 
printree( RIGHT_PTR{ptr] )3 
} 
/* end printree */ 


Heres manifests are being used to make the code involved in 
traversing a binary tree more meaningful. Manifests are 
often used in this way to give names to the elements of a 
structures which may be an array of fixed sizes or a 
dynamically allocated block of storage. 

A common conventions used in program exampless 1s to 
differentiate manifest identifiers from other identifiers by 
always showing the manifest identifier in upper cases and to 
show all others in lower case. It is also considered good 
practice to group all manifests for a program together at 
the beginning of the source code, 


2-2. External definitions. 

We will first look at the possible forms of external 
definitionsse then look at several examples. 

If an external is defined and possibly initialized in 
more than one places the first one encountered during 
loading 1S the one which is used. 


These are the possible forms of external definitions: 


names 
A single word is allocated and initialized to zero. 


name { ival }- 
Name is defined as a single word and initialized with the 
single value ival. 

Ival may be any legal constant expressions in which 
case name has the value of its result. A constant 
expression may be either a string constant or an 
expression formulated with any legal combination of 
numeric or character constantss binary operatorss unary 
operators and parenthesesse following the rules inthe 
chapter on expressions. Alternatively-s ival may be a 
names in which case the value of the ival is a word 
containings in the lower 18 bitss the address of the name 
given as the ival. A function name may be uSed. 


name { tvale ivale eee }- 
Allocates space for as many words as there are ivals. 
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This 18 1n effect a vector which does not have a word set 
aside as a pointer to its its address is "&name", rather 
than just "name", which in this case refers to the first 
ival. This +s the way a vector is set up in FORTRANs but 
1s not the same as a 8B vector. 
name ([€ const~expr J] ; 

This 1s the first of several forms of 8 vector 
declarations. Name is defined as a pointer to ae vector 
whose length is a number of words which is the value of 
the constant expression plus one (since all 8 vectors 
start subscripting at zero). The zeroth element of the 
vector is initialized to zeros the initial contents of 
the remaining cells are undefined, 

The const~-expr in brackets may be any expression 
which is a legal combination of numeric or character 


constantSs unary Operators, binary operators and 
parentheses. It is up to you to make sure the value of 
the expression is reasonables, since the compiler'’s 
grammar lets it accept things like floating point 
constants and negative numbers, which give absurd 
results. For all practical purposess "Const~expr”™ must 


be such that it gives an integer result. 


name CJ] { ivals ivals w22 } 2 
Name is defined as a pointer to a vector whose length is 
the number of initial values. 


name ([ const-expr J] { ivals ivalse wee } 2 
Name is defined as a pointer to a vector whose length is 
the maximum of the result of the constant expression plus 
one and the number of initial values. The contents of 
those elements of the vector which do not have 
corresponding initial values are undefined. 


Vectors declared as externals (or as AUTO variables) 
are always allocated so that the zeroth word of the vector 
immediately follows the word containing the vector pointer, 


For compatibility with a previous version of the 
compilers B also accepts an ival or ival list which is not 
surrounded by braces. In this cases the compiler does not 
permit a constant expression to appear. Only a numerics 
character or string constant is acceptables although a 
Numeric constant may be prefixed by an integer unary minus 
sign. 
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Here are some examples of external definitions: 


e470 35 ! 
One word of storage is allocateds initialized to the 
decimal constant 10 and associated with the name "a", 


bf 3 (7 ees 2468" es ** fg hi". 32 
One word is associated with the name "b" and initialized 
with a pointer to a vector. of three words. The first 
element o f the vectors referred to as b(0Js is 
initialized with the character constant ‘ab*. The other 
two elementss bl1] and b(2]s are initialized with ‘cde’ 
and *fghi'ts respectively. 


e-4 °eb*s> abt? 32 3 
"co" 4s defined and associated with a word containing 
‘ab’. The word immediately following is initialized to 
the constant ‘abc’s but is not associated with any name. 
This is in effect a vector which does not have aword set 
aside as a pointer to it. 


d(63)- 
Defines "d" and associates it with a word containing a 
pointer to aevector of 64 wordss each of which is 
initialized to zero. 


SL710) ¢( av be Ceo. d. ie 
Declares "e" and associates it with a vector of 11 words. 
Words zeros ones two and three are initialized with the 
Sdadtesses...6f: «the “externais ..“a">. -"b"s "Ee". end... "dd? s 
respectively. The contents of the remaining elements are 


undefined. 


+. 02 %e Setting §=6(3-7 
This 31s the usual way of defining an external string with 
an initial value "f" is defined and initialized with a 
pointer to the storage occupied by the string constant "a 
string”. 


gf] { "“pascal/library", “pascal/compiler", -1 }-z 

This sets up a vector of strings with an end marker, 
Defines "gg" and associates it with a word containing a 
pointer to a vector of three words. The cell "gf0]”" is 
initialized with a pointer to the storage occupied by the 
string constant "pascal/library"™. The cetl. “gETj".-is 
initialized in a Similar manners while “gl2I", the last 
element of the three-word vectors is initialized to the 
decimal constant -1. 


B does not allow you to explicitly declare arrays with 
more then one dimension. Usually if you need more than one 
dimensions you build it at run time by calling the Library 
function GETMATRIXs which will obtain storages construct the 
necessary edge vectors and return a pointer to the array. 
Howevers 1n spite of the fact that you cannot declare such 
an arrays it is possible to construct one as an initialized 
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external! The secret is that any ival (inside braces) may 
be replaced by an ival or ival List surrounded by braces, 
The compiler then constructs the ival list and places a 
pointer to it ain the original ivat list. The maximum 
nesting depth is seven. For example, 


ieee nt 
{ 00, 01, O2 }., 
TGs 12 12: 73% 
{20s Zire 22:3 
3 | 


In this cases "x" ends up being initialized as a pointer to 
a vector containing three pointers. Each pointer points to a 
vector of three words. In an expressions the value of 
"xCOJ" is a pointer to the first vector of three words, 
while the value of "x(1J£2)" is 12. 


2e3- Function definition. 

B functions serve a purpose similar to the subroutine 
in FORTRAN or the procedure in ALGOL. The mechanism of the 
function call involves very tittle cost in overhead and 
permits recursion. 

A working 8B program always contains at least one 
functions called MAIN» and usually otherss since the 
language is designed to encourage modular or structured 
programming. 

The general form of a function definition is 


name(€ argis arg2ds «ee ) Statement 


The name must be a valid identifier and is automatically 
defined as an external by the compiler. 

The formal arguments consist of a possibly empty list 
o f identifers separated by commas. Each argument. 1s 
implicitly declared as an automatic (local) variable and 
storage for it is allocated on the runtime stack frame. 
Note thats although you may not declare a vector as a formal 
arguments, you can always use an argument in a subscripting 
operations as if it were a vector pointer, 

"Statement™ defines what actions the function wall 
take. Most oftense it is a compound statements consisting of 
a set of statements enclosed by braces. The rules for 
formulating statements are presented in the next chapter. 

When writing the code for a functione there are a few 
things you should keep in mind, 

The caller will always pass its arguments strictly by 
value. This means that altering an argument has no effect 
on the state of the caller. Howevers if an argument is a 
pointers you can change the state of the caller by 
indirecting through the pointer using either the unary 
indirection operator or subscripting. 

The function may at any time return a one word value 
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using the RETURN statement. The caller and the callee do 
not have to agree on whether or not a value is returned. If 
a value is returneds but not expecteds the value is ignored, 
If a value is expecteds but not returneds the value is 
undefined. 

A function can determine the actual number of arguments 
it is called with by invoking the library function NARGS. 
For instances the statement 


x = nargst)- 


would assign to the variable "x" the number of arguments 
supplied to the current invocation of the function. 

The availability of NARGS lets you write functions 
which may take a variable number of arguments. Most of the 
times, this means that such a function is called with fewer 
arguments than are defined for its in which case one of the 
first things such a function does is to establish default 
values for the arguments it does not haves 

The other cases in which a function is called with more 
arguments than are defined for its is somewhat trickiers and 
should be avoideds, unless you know precisely what you are 


doing. 
The function called MAIN 4s the entry point to your 
program from the B runtime initialization routine. If not 


presente the TSS loader prints the messages. 
<w> main undefined 


For details on how your main function is invokeds, see 
the chapter on the run time library. 
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3. Statemeots. 


Statements are used to define the actions taken by a 8B 
function. They may appear only in the body of a function 
definition. In certain casesse the definition of a statement 
1s recursive, In that a statement = may appear inside a 
statement. In this chapters you will see that in’ many 
caseSs one may use an expression in a statement. Since the 
rules for formulating expressions are discussed in the next 
chapters we merely note here that an expression may be a 
statements but a statement may not appear in an expression. 

In every case where a statement is permitteds it may be 
replaced by a compound statements consisting of one or more 
statements enclosed in curly bracesSs as in 


{ 
statementt 
statement2 
} 


The compiler does not permit a null compound statement Like 
iL? 


All statementss except compound statementsse must end with a 
semicolon. 

In the formal definitions which follows reserved words 
are underlined and parenthesess where showns, are required. 
Alsos “statement” implies either a statement ended by a 
semicolon or else a compound statement surrounded by braces. 


Seis Null statement. 


The null statement does absolutely nothing. It is typically 
used to supply a null body to a WHILE statements as in 


while putchar( getchar() ) )- 


or to provide a convenient place on which to hang a Label. 


3e2- Exoression statement. 
expression, 


Any valid B expression followed by a semicolon 1s acceptable 
as a statement. To be meaningfulse the expression will 
usually involve an assignment operation or function calls as 
in 
x = minlasb) + xe 
open( "/myfile", 
++7; 
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but the compiler will happily accept statements which do 
absolutely nothings such as 


a < be 
opens 


1s 


Remember thats in Bse assignment is an operator in an 
expressions not a statement. 


3.3. Storage declaration. 


3-3-1- Storage types. 

Before discussing the statements pertaining to storage 
declaration or references, we will briefly look at how 
storage is allocated in a B program. 

External storage consists of the globat_ pool of 
externals declared in the manner described previously. For a 
function to use one of these externalSs the name must be 
referenced in an EXTRN statement. 

Automatic storage consists of local variables which are 
created anew on the runtime stack each time the function 15S 
called and which disappear when the function returns. 
Automatic storage is unique to each invocation of a 
function. 

Internal (local static) storage is allocated within a 
function body and is common to all invocations of a 
function. The labels which is never explicitly declareds is 
the only permitted instance of internal storage. 


Constants used inside functions are allocated as 
internal storages, but the compiler will not accept 
constructs that would result in directly changing a 


constant‘'s value. 

Finallys there is a pool of free storage which can be 
dynamically allocated by the library function GETVEC and 
dynamically released by the library function RLSEVEC. This 
free area is automatically grown as required up to the 
Limits imposed by the operating system. 


Any identifier used in a function body must be a formal 
arguments a labels or previously referenced in an EXTRN- or 
AUTO statement. The only exception is a function name used 
in a function calls since the compiler automatically types 
as external any name immediately followed by a teft 
parenthesis ‘*(*, 

AUTO and EXTRN statements may appear anywhere in a 
function bodys but you should group them at the beginning of 
the function, 
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exirco namels namecs 2292 # 


This statement allows the function to begin usSing the names 
previously defined as externals (see chapter 2). Although 
an identifier may be externally declared as a vectors you 
should not indicate this in the EXTRN statements since B 
lets you use any cell in a subscripting operation, 


geded- Auta. 


auto namels name2d(constrexprlis see 2 


The AUTO statement is used to declare local storages which 
IS unique to each invocation of the function. For example, 


auto Xe 
auto iv je xC10I- 


A vector declaration is legal in an AUTO statements but the 
size of the vector must be a constant expressions since it 
Is established at compile time. 

Const~expr is any tlegat combination of numeric or 
character constantsSs unary operatorss binary operators and 
parentheses, Make sure what you use 38 Sensibles because 
the compiler accepts constructs like "auto x{€-1]" which lead 
to undefined results. Normallys one would expect a constant 
expression which is not a simple numeric constant to involve 
a manifest constants as in 


MAX = 10,3 


auto xCMAX*2), yCMAX + 7]- 


If you need dynamic vector allocations you must use the 
library function GETVEC to obtain it from the free storage 
area. 

An AUTO statement which declares a vector is executable 
in the sense thats when it is encountereds it initializes 
the pointer to "nt1" words. The initial contents of an AUTO 
vector or other AUTO variables are always undefined. 

Because AUTO variables are allocated on the stacks, and 
because there is no check for stack violations you should be 
cautious about declaring large vectors as auto variables. 
Although the compiler command will let you change the 
default stack size of 500 wordss it may be preferable to 
either use an externals or else allocate it from free 
storage. 
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303-4. Labels. 
Any unique identifier followed by a colon and preceding 
a statement is defined as a labels For examples: 


again: 
mxts x 


| i) 


getchar(), 


A statement may be preceded by as many labels as appear 
to be necessarys as in 


labis lLab2: lLab3: printf{("hi there”); 


24. Iransfer of control. 

The GOTO statement does the obvious thing. The RETURN 
Statement 1s used to exit from a function, The NEXT and 
BREAK statements greatly simplify loop control. 


304.1. Goto. 


goto labels 


will cause a function to transfer control to the statement 
which has the label “label”. The compiler actuaily accepts 
"goto expression”. | 

If “label” has not already appeareds it is defined as 
one. It is a fatal error if it is not used as a label in the 
function body. 

It is legal to transfer to any location inside a 
function bodys including into or out of 3 compound 
statement. It is almost never a good idea to transfer into 
a compound statements because the action is difficult to 
follow and because it can lead to unpleasant surprises. 

Because B 1s atypeless languages, the compiler has no 
way of knowing whether the label or expression you supply in 
a GOTO statement really turns out to be a valid tabel at 
runtimes, so it is perfectly legals but probably erroneouss 
to say 


extrn bes 
goto bs 


Never try to pass a label as an argument to a _ function 
and use it to transfer to another function. The program 
will end up in one functions but with a different function's 
stack pointers resulting in immediate or eventual disaster, 
unless you know exactly what you are doing. 
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304.24 Beturcn. 


Fetyro - 
cetuco ( expression ) ¢ 


The RETURN statement ends the execution of a function and 
results in return to the caller. Upon returns alt temporary 
storage in use by the particular invocation of the function 
disappears. | 

The first form of the RETURN statement merely returns 
control. The second form causes a one word value to be 
returned also, 

Note that the construct 


return (); 


71S Not permitted by the compiler (it gives a syntax error). 
A simple RETURN statement is supplied implicitly at the 
end of aB function body. 
The library function EXIT is also availables should 
your program wish to terminate execution at a point other 
than after the last statement of MAIN, 


324.3. Break. 


break - 
The effect of BREAK is to drop out of the most recent 
innermost enclosing WHILE» FORs SWITCH, REPEAT», or DO-WHILE 


statement. The compiler generates a fatal error if a BREAK 
statement is not inside one of these. 


204.4. Next. 
next - 

NEXT 38 a directive to skip all further statements in the 

most recent enclosing WHILEs FOR» REPEATs or DO-WHILE loop, 

and transfer to the test which determines whether looping 

should continue. 


35.2- Conditional statement. 


Seldel. If- 

af (€ expression ) statement 
If the result of the expression 185 non-zeros then the 
statement 1s executed. The parentheses around the 


expression are mandatory... 


if ( expression ) statements else statement, 
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If the result of the expression 1S non-zeros the first 
statement executess otherwise the second statement executes. 

In the case of nested IF statements where there are 
fewer ELSEs than IFse the compiler associates the ELSE with 
the closest IF at the same level of nesting. 


$t © (4029 44 bau: ) oT eee 8 
resolves to 
If( ses ) 1f-statement 
Think of IFs and ELSEs being placed on a pushdown stack as 
they appear. An ELSE which you pull off the stack always 
goes with the next IF pulled off. 
Here are some examples of IF statements: 
iff a) y= xe 
if€( a< 2) y = as else y = O0-¢ 


ita’ le. 6.3°¢-% gt ¥2 


else 
{ 

a += x, 

b == ye 
} 


3-4. Iterative statements. 
A REPEAT iterates a statement until a BREAK statement 


1s encountered or a GOTO causes control to pass outside the 
loop. WHILE iterates a statement as long as an expression 
is non-zeros testing at the top of the Loop. DO-WHILE 
iterates a statement until an expression 18 non-zero, 
testing at the bottom of the tloop. A FOR uses three 
expressions to initializes, test and modify in controlling a 
loop. 


3-6-1. Repeat. 
repeat statement 
The REPEAT merely executes the statement forever. The 


statement is almost invariably compound. NEXT and BREAK 
Statements are legal inside a REPEAT. 
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306.2. While. 
while ( expression ) statement 


If the result of the evaluation of the expression is non- 
zeros the statement associated with the WHILE is executed, 
After execution of the statements the expression is re- 
evaluated again ands if the result is again non-zeros the 
statement 1s executed again. In other wordss while the 
result of the expression is non-zeros. the statement is 
executed. When the result of the expression 18 zeros 
control passes to the next statement following the WHILE 
statement. 

BREAK and NEXT statements are tlegal in ae WHILE 
Statement. 


3-6-3. Do~while. 
do statement while ( expression ); 


The DO-WHILE provides a loop with a test at the bottom of 
the loop. It is equivalent tos 


repeat 
{ 
statement 
if€ texpression ) break; 
} 


BREAK and NEXT statements are legal in a DO-WHILE 
Statement. 


ae 6.4 2 Eore 
for ( expris expr2s expr3 ) statement 


The FOR statement may be used to sets test and increment a 
variable in order to control a loop. The FOR statement is 
equivalent to 


expr; 
while € expr2 ) 
{ 
statement 
expr3, 
} 


The first expressions which might initialize a controlling 
variables is evaluated. Thens if and while the result of 


second expression (usually a test) IS non=zeros, the 
statement is executed, Before returning to re-evaluate the 
second expressione the third expressions which might 


increment a controlling variables is evaluated, 
Both BREAK and NEXT are Legal in a FOR Statement. The 
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effect of NEXT is to pass control to the evaluation of the 
third expression. 

Any or all of the expressions may be nulls and they 
need not necessarily involve the Same controlling variables 
if anys Note that the second expression is always treated 
as a logical expression. Some examples: 


Tort 3 #:0%.1-< 402 ££ 29 abi 2 *. R732 


for( 12 104 1 <= x 


fort ¢:.1 < ne +41 ) -yiij = gin -- ide 
NULL = Q-¢ 
NEXT = 124 
DATA = Q, 


for( p = startlists p != NULLs p = pLNEXTIJs ) 
if( p£DATA] >= x ) break; 


eel» Switch statement. 

The SWITCH provides a conditional branch depending on 
the one word result of an expression. The SWITCH has the 
following formal syntax: 


Switch ( expression ) statement 


The statement is always compound and special labels are 
allowed inside the statement to point to where to. start 
processing for a given cas@s as in 


Switch ( expression ) 
{ 


£ase constrexprs: statement 
fase constrexpr 3:3: constrexpr:s statement 
break ; 
case <rel op> const-expr: statement 
/x rel op. 18 one of <s <=e DOFy D> */ 
gefault : statement 
} 


The SWITCH evaluates the expression and compares the result 
with the constant or constant bounds in each CASE label. It 
selects a cases if there is ones and begins executing the 
compound statement at the statement immediately following 
the appropriate CASE label. If the expression result fits no 
cases execution continues at the label DEFAULT (Cif supplied) 
or at the next statement following the SWITCH» if DEFAULT is 
not supplied. 3 

Once a case 18s selecteds execution always falls through 
into the next cases unless a statement which alters the 
control flow is encountered, 
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Usuallys a BREAK is used. It causes control to go to 
the statement following the SWITCH. 

A statement may have more than one label or CASE tabel, 
just as a label or CASE label may be followed by more than 
one statement. 

As shown aboves a CASE may be satisfied by 1) a single 
values 2) a range of values which tnclude the endpointss or 
3) an upper or lower bound. Overlapping bounds draw a fatal 
diagnostic from the compiler. 

By const~expr we mean as usual any legal combination of 
numeric or character constantss unary operatorss binary 
operators and parentheses which can be evaluated at compile 
time as some constant value. String constants are not 
permitted in this context. 

Any attempt to SWITCH on floating-point values will not 
works since the generated code performs integer comparisons. 

The compiler will construct a jump table for the SWITCH 
Statement if the ratio of 1) the maximum case value minus 
the minimum to 2) the number of case Labels is between one 
and two. 

As an examples here 1s a function which uses a SWITCH 
to determine if a character is legal for a B identifier. 


alphnum( c ) 
Switch( c ) 
{ 
cage "“A® 83 2°2* "2 
/* converts upper case to lower */ 
/* and falls through to return */ 
Eafe 5 
tase "a" 33° "27 2 
ease “O° ss -* 9" 
case "5: 
case ‘*_*s: 
return( c )2 
/x* would use break if return not used */ 
defaults 
return( OQ ), 
> 
/* end of alphnum *«/ 
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4. Expressions. 


Expressions in 8B are constructed according to rules 
which govern combinations of operatorss identifierss square 
brackets and parentheses. 8B has a large set of operatorss 
which are described in this section. 

Because B 1s typelessse the compiler always assumes a 
given operation on a word is appropriate. Although this 
tends to force you to do more checking yourselfs it also 
gives you the scope to do almost anything you want. This 
typeless characteristic often causes trouble for beginning 
users of Bs» because the compiler happily accepts possibly 
erroneous operationsse such as adding one to a function names 
or uSing a pointer as a function call. Such is the price of 
freedom, 

The compiler takes no responsibility for the validity 
of expressions. There is no runtime monitoring of possible 
arithmetic overflows or faults. Overflow faults are masked 
Outs but a divide error (like dividing by zero) will result 
in an immediate abort. 

Expressions are evaluated according to an order of 
binding which includes both the hierarchy of evaluation, 
which determines the order of evaluating different types of 
operatorss and groupings which determines the order in which 
operators of the same type are evaluated. We will discuss 
the hierarchy from highest (evaluated first) to lowest and 
mention the grouping rule for each type. The results are 
Summarized in Appendix A and the explain file "explain b 
binding”. 


4.1. Primary expressions. 
The primary expression is the basic building block used 


to construct expressions, It is defined recursively as 
follows: 
name 
A legal identifier 1s a primary expression. 
constant 


Any legal constant constitutes a primary expression. 
primaryl expr J 
A subscripting operations which 14s a primary 
expression followed by an expression in Square 
bracketSs, 1S a primary expressions 
primary( arglist ) 
A function call operations which consists of a 
primary expression followed by an open parenthesis, 
7S a primary expression, The open parenthesis must 
be followed by a possibly empty set of argumentses 
consisting of comma-separated expressionss followed 
by a close parenthesis. 
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( expr ) 
Any expression enclosed by parentheses which is not a 
function argument list is a primary expression. This 
lets you use parentheses to alter the order of 
binding. | 


Here are some examples of simple primary expressionss 
x getchar() (a + b) 6 x{1) 6x] 


In cases where a primary expression is composed itself of 
another primary expressions, grouping occurs from left to 
right. For examples look at 


{3 31:33 3349 


99 EY 


In the first cases "x" is treated as a pointer to a vector 
of vectors. In the second cases "x" is treated as a pointer 
to a vector of functionss one of which is to be called. In 
both caseSe "xyCiJ" is evaluated firsts placed in a 
temporarys call it "“y",s and then the remainder of the 


expression is evaluated as "yfjIJ" or “y()"s respectively. 


4.1.1. Subscripnting. | 

Subscripting is not restricted to use with variables 
originally declared as vectors. It 3s a completely general 
operation which may be applied using any two arbitrary 
expressions. 

To help you understand how subscripting works in Bs 
take a look at the primary expression 


afi] 


One of the variables is supposed to be a pointers while the 
other is supposed to be an offsets but it does not matter 
which! The reason for this is that B gets a pointer to the 
cell “alild” simply by adding "a" and "i” together. If the 
value of the cell is requireds the compiler gets it by using 
the pointer. Therefore it 1s perfectly legal to 
alternatively say: 


iCal 
anywhere you could have said "aliJ”™. 


4.1.2. Function calls. 
As you can see aboves the general for of ae function 
cail ass 


primary expris expr2s eser eOxprn ) 


Most commonlys “primary” is just the name of the function to 
calls but the generality of expression is there to permit 
you construct and use vectors or tasts which contain 
functions to be called. 

A function call primary may always be assumed to return 
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avalue. It is up to the programmer to make sure that a 
value 31s returned when one is wanted or that a value is only 
wanted when one 1s returned, 

It 3s also up to the programmer to make sure that a 
function 18 called with as many arguments as it needs. It 
is safe to call-a function with more or fewer arguments than 
are defined for its assuming the called function is prepared 
for such contingencies. 


Note that it is the parentheses surrounding the 
argument list which tetl the compiler the operation is a 
function calls, so they must always be present, For 


instances say you have a function called PROC which requires 
no arguments. To call its you Say 


proc() 
But if you say only 
proc 


no function call will take places because none is implied. 


4.2- Rvalues and lyvalues. 

When we come to the assignment statements or to 
operators which perform implicit assignments it becomes 
necessary to distinguish between the address of a thing and 
its contents. 


An gyalue is the contents of a word. Any expression in 
B may be evaluated for an rvalue. For examples, the rvalue 
of a subscripting operation is the word addressed by the sum 
of pointer and offset. 

Everywhere in this manual where we say "“expression”"s we 
mean an expression whose result is some rvalue. 


An kyvyaluyue is the address of a word, Only a names a 
Subscripting operations or a primary expression prefixed by 
the unary indirection operator *** may be evaluated for an 
lvalue, The lLvalue of a subscripting operation is the 
address formed by the adding pointer and offset. 


It 1s convenient to think of an lvalue as an expression 
which is legal to the left of an assignment operator and of 
an rvalue as an expression which is legal to the rights as 
long as you remember that both may also appear in other 
circumstances. 


Context determines whether an expression 1s evaluated 
for its rvalue or” 3ts {value. For examples Look at the 
assignment 


S33 *2 2. * x 


The expression on the right yields an rvalue which is_~ the 
Sum 67 . the tontents of “x” and: the constant “2".. "als3" 
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must be able tos and doess yield an tvatue which is the 
address of the place to put the sum. 
Converselys it is illegal to say either of 


6 = x 
(a + b) = x 


because the expressions which are on the left of the 
assignment operator are not permitted to have an lvalue. If 
they could have an lvalues you could then in the first case 
change the value of the constants or in the second case make 
a meaningless assignment. 


4.3. Unary operators. 
A unary operator acts upon aeunary expression to 


transform it in some manner. A “unary expression” is either 
a primary expression or a primary expression already 
modified by one or more unary operators. In the definitions 
belows “rvalue” or "“tvalue” must be a unary expression. 
Unary operators are applied from left to right. Except § for 
the unary indirection operators the result of applying a 
unary operator 1s always an rvalue. 
The following unary operators are defined: 


#rvalue 
Assumes the value of the expression to be integer and 
converts it to single precision floating point. 
##rvalue 
Converts single precision floating point to integer. 
“rvalue 
One's complement. Converts all zero bits of its 
operand to ones and all one bits to zeros. 
-rvalue 
Results in the arithmetic negation (two's complement) 
of the operand. 
Hervalue 
Results in the floating point negation of the operand 
word. 
'rvalue 
Logical not. The result is zero if the operand is 
non-zero-s otherwises the result is one. 
xrvalue 
The indirection operator. Takes the rvalue but uses 
it as an lvalue. This is the only case in which a 
unary operation returns an lvalue. Thus any primary 
expression prefixed by a "*" may appear on the left 
hand side of an assignment. "*6 = x" stores the 
contents of x in location six. "y = *x™ stores the 
contents of the word pointed at by x Into y. 
&lvalue 
The address operator. Forces the program to generate 
the lvalue of the expressions then use it as_ an 
rvalue. For instances, "“&x" is an rvalue which 
contains the address of x in the lower 18 bitse while 
"86" is illegals» because "6" may not have an lvalue. 
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++lvalue 
Adds one to the rvalues before using it. Each of the 
auto increment/decrement operators require an Ilvalue 
as its operand. An tvalue 3s requireds because of 
the implicit action of assignments but the result 1s 
always an rvalue. 

lvaluet++ 

Adds one to the rvalues after using ite 
--~lvalue 
Subtracts one from the rvalues then uses it. 
Lvalue-- | 
Subtracts one from the rvalues after using it. 
aprimary 
The at~-sign operator is)6 GC used to force the use of 
Honeywell hardware indirection. Its effect is to OR 
the indirect bit into the last generated instruction 
tor. an expression (rvatue or lvalue). The 
instruction affected 1s usually a load or store. It 
was most commonly used to access characters using 
tallies, by indirecting to a word with tally 
modification and the address of a tally word. 
Normallys you should not use it. 

There is a fundamental retationship between the "«*" 
operator and subscripting which should help you understand 
how addressing works in Be. The following are exactly 
equivalent everywhere: 


alb] <=> *(atb) <=> blaJ 


To be able to write or understand B programss it is vital 


that you understand the validity of this relationship. 
Here are some examples involving unary expressions: 


++} 
Adds one to the value of "i", Frequently used 
Shorthand. tor “i..2.1 4+. 1%. 

aCbJCc]++ 
Forms an address by adding together a” end. “bs 
picking up the word pointed at and then adding "c" to 
the contents. It is equivalent to "*(*(a + b) + cd)”, 
If this were part of a larger expressions the word 
pointed at would be loaded into a temporary. Then the 


96 


contents of the addressed matrix element 1$ 
incremented by one. 
Salil 


Forms the address of the ceil "“alilJ™ by adding the 


values of “a™ and "i". That iss it is evaluated as 
"2 + ae 
y = *(C&x) 
The verbose way of saying “y = x", 
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x = *kot++t 
The word which word pointer "p" points at is copied 
into "x", then "p" is incremented by one to point. at 
the next word. That #$e2 -*)" is used» - then 
incremented. 

Xx = ttkp; 
The word pointed at by 
then copied into "x", 

ettp = x 
The contents of "x" are copied into the word pointed 
at by “p"» but only after "p" has been incremented by 
one to point to the next word. That iss “p" is first 
incrementeds then used. 

*6 = 2 
Places the value two in location six,e “"*6" is the 
same as "Q6]" or “6£0)". This kind of construct is 
used to access Locations in the slave program prefix. 

xCaCbjJ + 1] 
Gets the contents of “afbJ”" into a temporary and adds 
one to the temporary to get the subscript. The 
contents of "x" and the subscript are added together, 
yielding the address of the element of "x" to be 
used, 


p” as incremented by one and 


4.4. Binary operators. 
All other operators are binary operatorsse which means 


they require both a left and aright operand. Each operand 
must be an rvalued expression. 

With one exceptions, the order in which the two operands 
are evaluated is undefineds so don't have the evaluation of 
one side depend ona side effect generated by the other side 
Cin a function calls for instance). Logical operators are 
the only exception. Their operands are always taken strictly 
from left to right. 

The code generated for floating point operations is 
corrects but not blindingly efficients since the compiler 
generates a separate load and store for each use of a 
floating-point operand. Howevers, it is there if you need 
ts For non-casual use of these operatorss it 1s probably 
better idea to either call a FORTRAN routine to do the jobs 
or else program in some other language. 


4.2. Shift operators. 


expr << expr 
The left operand is taken as the one word bit pattern 
to be logically left shifted. The right operand 
supplies the number of bits to shift. If negative, 
or greater than 1276 the result is undefined. 
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expr >> expr 
Logical right shift according to the same rules. No 
arithmetic right shift is defined in the languages 
but you may use the library. function ARS, 


Shift operators group from left to right. 


4.6- Bitwise ang. 


expr & expr 
The "8&8" operator takes the bitwise "and" of its two 
36 bit operands. If bit 31 of both operands 1S ones 
then bit i of the result is one. Otherwise bit 1 of 
the result 1s zero. 


4.2. Bitwise exclusive or. 


expr expr 
Takes the bitwise "exclusive or™ of its two 36 bit 
operands. If bit i 1s on in ones but not in the 


others then bit 1 of the result is on, 


4.8. Bitwise or. 


expr | expr 
This take the bitwise "or" of its two operandss such 
that aif bit 1 418 on In either of the two operands or 
boths bit 1 in the result 3s on also. 


The following is a summary chart of the results of 
bitwise operations. The table shows the effect of each 
operation on one bit. 


operands results 

a b and or exor 
0 0 0 0 0 

0 1 0 1 1 

1 0 0 1 1 

1 4 1 1 0 


4.2. Multiplicative operators. 


expr / expr 

Integer division of the first integer operand by the 
second. Will result in a divide check abort if the 
right operand is zero. The result is zero if the 
left operand is less than the right. The result is 
truncated towards zero if the right operand does not 
divide evenly into the left. The result 18 positive 
if the operands are both positive or both negatives 
otherwises it is negative. 
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expr % expr 
Results in the integer remainder of the integer 
division of the first operand by the second. it the 
remainder is non-zeros, it has the same sign as the 
left operand. 

expr * expr 
Integer multiplication. 

expr #/ expr 
Single precision floating point divide, 

expr #* expr 
Single precision floating point multiply. ALL 
floating point operators assume floating-point 
operands. 


Multiplicative operators group from left to right. 


4.10. Additive operators. 
These provide integer or floating point addition and 


subtraction. 


expr + expr 
Integer add. 
expr ~ expr 
Integer subtract. 
expr #+ expr. 
Single precision floating point add. 
expr #=- expr 
Single precision floating point subtract. 


Additive operators group left to right. 


4.11. Relational operators. 


expr == expr (equal) 

expr != expr (not equal) 

expr < expr (less than) 

expr <= expr (less than or equal) 
expr > expr (greater than) 

expr >= expr (greater than or equal) 


The result is one if the given relation between two 
integer operands is trues and zero otherwise. 


The following operators perform the same function (for 
floating point operands: 


H#== His #< H#<= #> H#>= 
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4.12. Logical and. 


expr && expr 
The result 1s an integer one if the result of both 
expressions 18 nonzeros. and zero otherwise. 


The left-hand expression is always evaluated first. If its 
result is zeros the result of the expression is zero and the 
right~hand expression is not evaluated. 


4.13. Logisal or. 


expr I! expr 
The result is an integer one if the result of either 
expression or both is non-zeros and zero otherwise. 


The left-hand expression is always evaluated first. If the 
result is non-zeros then the result of the expression is 
non-zero and the righthand expression is not evaluated. 


4.14. “Query” operator. 


exprl ? expr2 : expr3 
The first expression 1s evaluated. If the result 15 
non-zeros, the second expression 1s evaluated and 
returneds while the third expression is ignored. If 
the result of the first expression is zeros the third 
is evaluated and returnedse. while the second is 
ignored. 


This is analagous to "if € exprl ) expr2; else expr3", 
but has the advantage that it may be used in an expression. 
For examples a function to calculate the maximum of two 
numbers might be coded as; 

max€ a» b) return( a> bb? a3 bd de 


Grouping is left to rights so that 


Is equivalent to 


a? 6 ¢ tc?d3e) 
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4.15. Assignment operators. 


lvalue = expr 
Takes the one word result of the evaluation of “expr" 
and stores it in the word addressed by the lvalue. 


lvalue <op>= expr 
Is equivalent to the assignment 
Lvalue = rvalue <op> ( expr ) 
where <op> can be any one of 
oe ie toe, ee ee ee > cae eee 
Note that neither floating point nor relational 
operators are included. 


For examples 


is the same as 

x = x*e*(a + b)s 
In all casesSse the expression is evaluated firsts even though 
the operator in the assignment may have higher’ binding 
strength than an operator in the expression. 

Assignments group right to lefts: 

x = y = QO, 
1s taken as 
x = (y = Q)- 

Remember that assignment 1s an operations not 3 
statements and so is legal almost anywheresr, including 
conditional expressionss such as 

17. €x: = ylit+4+])]) == 2. daw 
Note that parentheses are used in this case to alter the 
order of precedence. These are required in this case 


because the assignment operators have the lowest precedences 
which means that they are evaluated last. 
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5. Implementation-dependent information. 


The information in this chapter is Subject to change. 


2el. Linkage conventions. 

The B compiler's mechanism of performing a_ function 
call is rather different from the standard Honeywell calling 
sequence. In this chapters, we will describe the calling 
conventions in details so you can attempt to write or 
understand functions written in GMAP for the B environment. 


Seislds Euotctioon cali. 
The standard B function call looks Like 


tsx1 SUDse* 
zero Sen 


where "s" is amount by which the stack pointer should be 
bumped and "n" Is the number of arguments supplied. The 
compiler generates these numbers for B functions. 

When a B function is runnings its stack pointer points 
to a word of return information. Above that point are a 
fixed area for arguments and a fixed area for auto 
variabless all addressed relative to the stack pointer. 
Stack Space above the auto variables is used to hold 
temporaries created during expression evaluation. There is 
no check for stack violation. When one function calls 
anothers the stack pointer must be moved so the callee does 
not affect the state of the caller. 

Before executing the TSX1 instruction to transfer 
indirect to the functions the caller must first set up the 
argument values. The first and second arguments are loaded 
into the A and @ registerss respectively. Other arguments, 
if presents must be placed in the stack in such a way that 
they are available to the caller once the stack gets bumped, 
This 1s shown in the next section. 


2-1-2. Entry. 
' The general convention for a subroutine entry tooks 
lake thiss 


symdef sub 
symref .10001 


sub tra a+? Indirect pointer to function body 
zero endsedebug end of function or debug table 
xed «10001 (adx?7 O01 = advance sp by “s") 
rem (stx1 O-7 - store return address) 
staq 147 first two args passed in the AQ 


The ZERO word 1s used by the debuggers, PMDs. and by the 
profilers .PROFILE,. It contains either a pointer to the 
last word used in the function in the upper half or a 
pointer to the debug symbol table tn the lower hatfs but not 
both. If you are writing your own functions, it is quite 
safe for both of these to be zero. 
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Index register seven is reserved for the stack pointer. 
Index register six is reserved for the coroutine package. 
Address registers four and five are reserved for use by the 
input/output package. B functions assume a called function 
may have used any other registers. 

The GMAP routines in the runtime package follow the 
added convention that index registers five through seven may 
not be used and that index registers three and four must be 
restored if necessary upon exit. 

By conventions the first two arguments are passed in 
the A and Q@ register. It is the responsibility of the called 
function to store them if necessary. 

The hardware will only allow a “STAQ" instruction to 
work correctly if the address of the store is at an even 
word boundary. To enforce thiss the stack pointer is always 
initially set to an odd addresses and must always be 
incremented by an even amount. 

Once the "STAQ" is dones, the stack iS organized as 
follows: 


of -~> return address 

of -> first argument (initially in A register) 
of -> second argument Cinitially in Q@ register) 
of -> nth argument (placed in stack by catler) 
+177 -> start of auto variables and temporaries 
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2e1.3- Exit. | 
When a B function has done its jobs it returns using 
the sequence; 


symref .10000 


tsx0 ~10000 (ldx1 07 - restore return address) 
rem (sbx7? O41 - restore stack pointer) 
rem (qls 0 = set indicators for caller) 
rem (tra 141 - return) 


Prior to thisse the function may load a one word value into 
the Q@ registers which becomes the value of the function 
call. The calling function assumes the indicators are set 
upon return, 

A TSXO instruction is used so that the interactive 
debuggers if in uses can determine the address at which the 
function returneds, in order to find out the name of the 
function returning. 
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2-2. Internal representation of obiects. 


The material in this section is intended to help you 
understand how the code generated by 8B works internally. 
The value of a function name is an external word containing 
a transfer instruction with the address of the first word of 
the function body in the upper 18 bits. Transfer of control 
to a function body always occurs indirectly through a word, 
whose top 18 bits contain the address and whose tag field is 
expected to be zero. | 

The value of a label is a word containings in the upper 
18 bits» the address of the place to go to in the function 
body and zeros in the tower 18 bits. The transfer involved 
in a GOTO occurs indirectly through the label word. 

The value of a pointer or address is a words whose 
bottom 18 bits are taken as an address. 

The value of string constant is a pointer to the text 
of the string. 


6- Ihe B Library. 


One of the big advantages in using B is the 
availability of a large library of useful functions which 
simplify your programming problems and also supply a 


reasonable interface to the GCOS/TSS environment, 

Every 8B library function you could reasonably expect to 
use has an explain file under “explain b lib”. There is also 
an index of all documented routines. 

Only the routines you need to get started using B will 
be discussed here and even then not all options may be 
treated. 

Some functions may return a values this is indicated in 
this section by showing an assignment to indicate a value is 


returned. Also» some functions are called with a variable 
number of arguments. If you want to use an optional 
arguments you must usually also specify any preceding 
optional arguments also. Optional arguments are shown 


enclosed In square brackets. For exampies if a function is 
shown as 


return = func( argis Carg2s arg3] ); 


and you want to use “arg3"s then you must also use "“arg2", 

Sometimess as you will sees the first arguments usually a 

"unit"s may be optional. In this case the called function 

craftily examines the first argument to see if it is a 
$? «s 


number. vatia for. "unit"; if .&t .t§. note it: adiust$s #ts 
argument references accordingly. 
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Ql. -~BSEI - cedircection of i/o. 

Before your main program is entereds the run time 
Initialization routine calls a function named .BSET which 
"“predigests” the command Line for the user program and also 
sets up any “redirection of i/o" requested on the command 
line, 

In batches .BSET looks for the command line on filecode 
CZ. In your jclse you might have something Like 


$ data C2 
command arg arg2 eas 


~BSET breaks the command line up into “arguments”, An 
argument is either a string of non-blank characterss a 
quoted strings or a redirect request. 

A redirect request has three forms: 


<filename 
~BSET will open the file for reading on 8B unit OQ. 
Input for unit Q will come from this files rather 
than the terminal. 
>filename 
The filename is opened for writings. Output to B unit 
1 will go to this files, rather than the terminal. 
>>filename 
Same as abovesre except that if the file already 
existss output is appended to the file. 


A quoted string is delimited by either single or double 
quotes. To get a quote inside a quoted strings either use 
the quote which is not the delimiter or else put in two of 
the delimiter characters, 

eBSET collects the arguments which are not redirect 
requests and builds a vector of pointers to those strings. 
MAIN 48 Later called by 


main(€ argcs argv )- 


where “argc” is the number of arguments collected and “argv” 
is a pointer to the vector of strings. "“argvlargcJ” always 
contains the constant -1. 

In additions .BSET builds an external vector called 
»ARGTYPEs each cell of which contains a character giving 
some indication of the type of argument in the corresponding 
ARGV strings: 


type character 
string ee * 
string in single quotes ar? 
string in double quotes arses 
~option ‘-! 
toption ie 
possibly signed number wal * ig 


string with = in it “=* 
For examples look at the command Line 
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go -r /myfile "a string” >b.out 


MAIN will be called with ARGC set to fours since “>b.out” is 
not included. Ail writes on unit 1 will go to the file 
beouts which is created if necessary. The ARGV and .ARGTYPE 
vectors are set up as follows: 


argvl0OJ) = "go" eargtypl0jJ = * * 
argvfl1ij} = “-r" eargtyp£lij = *-° 
argv[2] = "/myfile” safagtypic).= * .* 
argv(3J] = "a string” eaargtyop(3) = *** 
argv(l4] = -1 


and the contents of the remaining elements of the ARGV 
vector are undefined. 

If you do not want to have .~BSETs simply supply your 
own function definition of “.bset()-" which witl replace the 
library version. 

Normallys howevers you will want .B8SETs» because it 
greatly simplifies the task of handling command lines. In 
facts there are even more powerful facalities built into 
-BSET for scanning command lines with arguments of specified 
types. As wells you may call .BSET to scan an arbitrary 
string. For full details» see the explain file “explain b 
tab .~bset™. 


OeL- Introduction to input/output. 

The targest class of functions in the 8B tabrary are 
those concerned with input and output. Sequential input 
routines will reads and convert to ASCII if necessaryse any 
sequential file in Standard system formats including media 
Oe 2 or 3 BCDs media Ss 6 or 7 ASCII and media 1 compressed 
source decks (comdks). Output 1s ASCII (media 6) unless 
special precautions are taken. 

The i/0 package will create output files if necessary 
and "grow" them as required up to their maximum size or to 
the Limit of the file space quota for a userid. 


G-2-1. Units. 

A B program may have several files open for reading or 
writing at the same time. Each file as associated with a 
number called a "“unit"s to which every ifo call implicitly 
or explicitly refers. 

There are five units whose function is predefined and 
may not be altered by the user. 


5 
This 18 an input unit whose origin is always the 
terminal in TSS or file code I* in batche It may be 
used to force reading from the terminal or file code 
I*, even though the standard input may have been 
redirected to come from a file. 
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-4 
This 38 an output unit whose destination is always 
the terminal in TSS or file code P* in batch. It 3s 
most often used to avoid possible redirection of i/o 
by forcing error messages to appear on a hard copy 
device. 

-3 
Used for console input in batch only. 

2 
Used for console output in batch only. 

-1 


In TSSe all output directed at this unit behaves as 
if it were typed at system tevel. In batchs output 
to unit -1 goes to the execution report. 


Unit zero is aiainitiatized as the standard anput unit. 
In TSSe this is the terminal but input may come from a_ file 
if redirection of i/o is uSed. In batchs reads on unit zero 
come from file code I[*, if it is defined and if input was 
not redirected. If I* is not present and there is no input 
redirections unit zero is placed in the end-of-file 
condition. 

Similarlys unit one is initaalized as the gtangdard 
Qutput unit. In TSSr this 8 again the terminal and is 
subject to redirection of i/o. In batchs output to unit one 
goes to the printers unless redirected. 

Units two through 19 may be assigned by or to _ yous 
using the file opening calls usually to permanent or 
temporary disk files. It is permissible to open units zero 
or ones, but the usual practice 4s to leave them alones so 
they may be redirected. 


SeLe2- Ynit opening. 

Before any 1/0 may be performed on a units it must be 
initialized by a call to OPENs which is of the following 
forms: 


ret = open( Cunits,] filenames action )- 


Normallys “unit” is not supplieds and OPEN finds a free 
units which it returns. If you do specify a units and that 
unit is already opens The state of the previous unit is 
Saved on a stacks when the current use of the unit is 
closeds, the previous state is restored and 1/0 may continue 
on that unit as if there had been no interruption. 

“filename” is a pointer to a string containing the 
usual catalog/file string (e.g. “"fbaggins/s/test.b”), An 
altname in quotes is useds if present. Permissions are 
effectively ignored, 

“action” is also a pointer to a string containing 
characters which specify the access permissions required and 
the type of i/o to be done on the unit. 

"ret™ is the value returned by OPEN, If non-negative, 
the open succeeded and "ret" contains the number of the unit 
just opened. "ret”™ is negative and no unit 1s opened if 
there was a file access error or if there was an OPEN error. 
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Although not quite all of the various things accepted 
by OPEN are dealt with in this chapters they are treated 
fully in the explain file for OPEN. 


Mode actions: OPEN offers three ways to specify the 
mode of the unit being opened. They are as follows: 
l 
This forces the requirement. that the unit to be 
opened be a linked (sequential) file. 


The ‘b's, for binarys requires that the unit being 
opened be a random access file. 


This +s used. for so-catied “string i/o”. The 
"filename™ argument is taken as a pointer to. the 
start of a block or words in memory The stream i/o 
functions will place characters into this block of 
memOrys, rather then transmitting them to a file, 


If none of these is supplieds "Lb" is assumeds, indicating 
that a file is wanted and that it should be accessed 
according to its mode. It is then up to the program to 
determines with the help of the function FILDES,», whether the 
file 4s random or sequential and then make whatever i/o 
calls seem appropriate, 


Error actions: Normallys OPEN never returns an error 
StatusSs since the default action 31s to abort the program 
with a reasonably understandable error message. 

The OPEN function lets you specify options which allow 
you to handle either file opening errors or file i/o errors 
or both. These options are in the form of characters which 
may appear in the action string: 


e 
arranges things so that a negative status is returned 
on an i/o error. 

f 
Sets things up so a negative status is returned on an 
OPEN or file access error, 

m 


Normallys when an error status 18 returneds no error 
message 1S printed. The inclusion of the ‘m* option 
in the action string will cause the appropriate 
routine to display an error message before returning 
bad status to the caller. It has no effect if neither 
the. *e* of *t* action 15 wsed. 

For instances if you said 

aa, see & 


open( "J/myfile", 


and “/myfile” could not be opened with read permissions OPEN 
would print an error messages then return bad status to the 
caller, 

In the case of OPEN errorss you will most likely get 
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back a number with is the negative of the file system error 
status. For examples OPEN would return -5 for “permissions 
denied”. In additions OPEN itself is liable to return any 
of the following special error statuses: 


-64 ~ too few arguments 
-65 ~- no free unit 
-66 - open append error 


File accessing in TSS is done by calling the .GET 
subsystem. In batches the file accessing Logic is bound with 
your program, : 


File access conventions: There are a number of file 
access/create conventions for TSS which you should be aware 
of: . 

1. Search rule: If you are opening a file andthe 
filename does not contain any slashes or dollar signs (e.g. 
"“beout")s» the file accessor first searches the AFT for a 
file of that name. If not founds the file accessor searches 
for a quick~-access file of that mame under the current 


userid, If the filename does contain at least one slash or 
dotlar signe it 18 assumed to be the name of a permanent 
file. ee the first character of the name is a slash or if 


the name contains no slashes at alls the file is assumed to 
be under the current userids otherwise it is taken as a 
complete name, 

2e Create rule: If the search fails and the request is 
to write or appends OPEN will attempt to create the file. If 
the filename contained no slashes or dollar signsse OPEN will 
try to create it as temporarys otherwise it tries to create 
a permanent file. 

34 AFT rules If the file was already in the AFT when 
accesseds it is left there when the unit 1s closed; 
otherwise it is ruthlessly removed from the AFT, You may 
override this by including in the action string either the 
character ‘t* (for transient) to force deaccessse or the 
character ‘k* (for keep) to force the file to be kept in the 
AFT. 


Oofed- Ynit closing. 
When you are through with a units you may want to close 
it explicitly by calling CLOSE: 


close( unit )- 


For sequential stream output unitss CLOSE flushes the output 
buffer if necessarys with an end-of-file mark written if 
appropriate. A unit associated with a disk file has the 
file deaccesseds if required, CLOSE releases the i/o vector 
after checking to see if there was a prior use of the _ unit 
which had been interrupted and saved. If there wase it is 
restored and i/o may then proceed on that unit as if there 
had been no interruptions otherwises the unit is free for 
further allocation. 

When your MAIN) function terminatess or when you call 
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EXIT directlys all open units are closed automatically. 
Note that if you hit breaks things are set up to call EXIT.» 
unless your program has established its own break handling 
procedure, 

Any attempt to read data from a unit which 1s not open 
results in the library routine called returning a value 
which indicates nothing happened. Similarlys output to a 
unit which is not open tends to vanish. 


Oele4. YUNIt switching. 

Since sOme input/output calls may not specify a unit 
directlys the i/o package maintains a default input unit and 
a default output unit to which these calls implicitly refer. 

Initially,» the i/o package is set to read from the 
standard input (Cunit zero) and write on the standard output 
(unit one), 

Any successful call to OPEN changes the default input 
or output unit. 

A library function which takes a unit as one of its 
arguments will will change the reading/writing unit for the 
duration of the call and restore the previous vatue before 
returning to the caller. 

User control over unit switching is supplied by 


old.eunit = ,read( ECnew,.unit] );7 
If “"news.unit™ is givens it becomes the current read 
unit. The number of the old read unit is returned. 


old.,unit = .write( Cnew.unitl] )- 
Works the same way aS ereads except that it applies 
to the default write unit. 


6.3. Sequential stream i/o. 


This section describes the body of routines oriented 
towards handling input/output on terminals or standard 
system format sequential files. 

The i/o package reads almost any media and arranges 
things so that the using program sees only a stream of ASCII 
characters. For instances BCD printer slews and strange 
escapes in media 3 files are correctly detected and 
converted on inputs as are ASCII slews in media 7 print 
image files. Compressed source decks are handled correctly, 
but the way it handles object decks is probably not very 
useful. Media 0 is always taken as variable-length BCD. 

On outputs the i/o package writes media 6 ASCII unless 
special action 1s taken as described in the explain file for 
OPEN. If writing to SYSOUT in batchs output 1s media three 
(BCD printer format). 
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You have the option of opening a unit to reads to write 
or to append as follows: 


unit = open( filenames, "rl" )- 
open a unit for readings requesting read/concurrent 
permission. 

unit = open( filenames, "wl" ); 
will open a unit for writings requesting 
write/concurrent permission, 

unit = open( filenames "al" )7 
will open a unit for writing so that data written by 
the program is appended to the end of the file... If 
the file is null to start withs OPEN treats” the 
situation just like a regular open for writing. 


6-3-1. Jerminal vs. file. 

There are a few special features of and differences 
between file and terminal i/o of which you should be aware. 

A logical record consists of a string of characters 
followed by a “record terminator"s which is one of ‘tn, 
‘xr’, ‘kxy", or **f*, Of theses **n* is never present on an 
input files but a ‘*n* never ise insteads the **n* is 
automatically supplied by the i/o package to indicate the 
end of a record. On input from a terminals, you separate 
logical records (lines) by using either the “return” or 
"lLine~feed” key. 

End of file ona file is signalled by the presence of a 
special record at the end of the file. End of file on a 
terminal is signalled by a line whose first (Cand usually 
only) character is an ASCII file separator (FS - octal 034 ) 
characters the same as is used by TSS GFRC. On most ASCII 
terminalss including the Teleray and Volker-Craigsz ae FS 
character is transmitted by typing the ‘cntl* and ‘\°* 
(backslash) keys simultaneuslys followed by a carriage 
return. On certain otherss you get FS by typing fcntl* and 
*L*. Alternativelys an EOT characters usually typed as 
*cntl*-'d*s» may be used instead. You can*t signal end of 
file on a 2741, 

Sequential file output is written in GFRC standard 
system format with 320 word blocks. An end of line (*%*n*) 
character written to a sequential disk file signals the end 
of a record but is not itself placed in the record, alt 
other record terminators do get written out. A new logical 
record as start following the receipt of any record 
terminator. If more than 1272 characters are written in a 
logical records the i/o package will generate partitioned 
records to permit the logical record to span more than one 
physical block. A 320 word buffer is written out only when 
1t is necessary to start a new buffer or when CLOSE is 
called. 

Terminal output occurs whenever a record terminator is 
received, but 1s buffered by TSS. Howeverse if your program 
issues a read from a terminals the i/o package arranges that 
all output sent appears on the terminal before it is 
"unlocked" for input. 
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When writing to the batch consoles a ‘'*yv' is translated 
to a ‘'*n*, but does not cause the current Line to be 
flusheds in order to let you either write a couple of tines 
or else write a line and then read a lines without having to 
worry about some other process affecting the console between 
writes or between read and write. 


6.3.2. Stream i/o fynctions. 


char_got = getchar() 
Returns the next character from the current read 
unit. Returns the character ‘%*Q* if the current 
reading unit is closed or at end-of-file. Most of 
the input routines described here behave as if they 
make repetitive calls to GETCHAR,. 


char = ungetc( char )-z 
Sends a character back to the current read units so 
that the next call to GETCHAR wilt return the last 
character put back, 


char = getc( unit )-s 
Same aS GETCHARs except the reading unit is switched 
to "unit™ for the duration of the calls, then 
restored. 


char_put = putchar( char )-, 
Sends the character supplied as its argument to the 
current writing unit. PUTCHAR also returns its 
argument word as its value. The argument word may 
actually contain up to four non-zero characters. 
PUTCHAR will output as many characters as there are 
In the word. 


char = putc(¢ units char )3 
Same as PUTCHARs except PUTC switches writing units 
for the duration of the call. 


string = getstring( Cunits] string Cemaxl] )- 

GETSTRING gets the next Line of Inputs or the 
remainder of the current line of input if GETCHAR has 
already been called, The newline at the end of the 
line is not returneds instead it 1s replaced by a 
7*e0"” tO mark the jefid of. the string... “String” is 
taken as a pointer to a vector long enough to hold 
the string. “unit” is used if supplieds otherwise 
the current read unit is used, If "“maxl™ is givens 
onty the first "maxl"” characters are returneds with a 
**0* tacked on to the end. If the unit 1s closed or 
at endrof-filese GETSTRING returns 2eros otherwise it 
returns “string”. The string is the nullstring if a 
line contains only a newlines If GETCHAR was not 
calleds GETSTRING has the effect of returning the 
next line of input from the terminal or the next 
logical record from a file. 
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string = getline( Cunits] string ECs maxlen]) )- 
Same as GETSTRINGs except the Line terminating ‘*n° 
1s included in the strings just before the string 
ending ‘*0*. 


printf(€ Cunits] formatestrings argls arg2ds «ee D7 

PRINTF is the most frequently used means of doing 
output in the B library. If “unit” is not supplied, 
the default writing unit is used. ry. “onset? is 
givens PRINTF temporarily switches writing unitss but 
restores the original state upon return, "format" is 
a string describing how the arguments) are to be 
output. It may contain any combination of titeral 
characters and formats. A format is of the form 
"ZAnnx"» where “nn” is an optional counts, and x 1s one 
of the following characters: 

b - The corresponding argument 1s taken as a 
polnter to a string of BCD characterss which is 
to be translated to ASCII and printed, Since 
BCD strings do not have a string terminators a 
count of six 1s assumed if not supplied. 
Trailing blanks are stripped. 

c > The corresponding argument 1S printed as_ an 
ASCII character. The count option is not 
applicable, The argument word may actually 
contain up to four non-zero ASCII characters, 
which will be printed. 

d - The corresponding argument is taken as _ an 
decimal integer which is converted to a= string 
and output. 

f - The argument 3s taken as a floating-point 
number to be converted and output. If you 
program does not use at least one floating=- 
point operators you must include an “extrn 
efloats”" to force the toading of the floating- 
point output routine. 

o > The contents of the argument word are output in 
octal. 

s - The corresponding argument 1s taken as a 
pointer to an ASCII strings which is transmitted 
to the output unit stripped of its trailing 
"0°. 

z - Same as ‘d's except that if a field width is 
given and the converted number is too small for 
the field, it is padded on the left with zeros, 
rather than blanks. 

If a character in the format string is not part of a 
format», it 3s printed as it appears. If a format 
does not have a corresponding arguments, it is printed 
as a literal string. To print out ‘%*s you must use 
"%%*. There is more to PRINTF than its given here, 
for full details,» see the explain file "explain b Lib 
print hae 
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string = putstring( string ECsmaxl] ); 
Works in much the same way as GETSTRING. The ‘0° 
which marks the end of the string is not output. If 
you want to write out a logical record and the string 
to be output does not end with a ‘*n*t» you should 
usually follow 3 call to PUTSTRING by a 
*“putchart'«n*)7". 


number = getnum(); 
GETNUM returns the next possibly signed integer 
number from the input stream. It calls GETCHAR- until 
it has skipped over all blankss tabs or newlines. If 
the character is not a digit or a Signe zero is 
returned, indicating no number was found. If a sign 
was founds and the next character is not a digits 
zero 1s returned again, Otherwise it collects 
numeric characters until a non-digit is founds then 
converts the numeric string it has collected to 


binary and returns that number as its value. The 
external GETN.A has the value 1 if a valid number was 
found. The external GETN.L contains the last 


character read. 


putnum( number )-, 
PUTNUM converts the assumed binary integer which is 
its argument to a character string and directs the 
string to the current output unit. 


reread(); 
Arranges things so that the next input starts at the 
beginning of either the line currently being 
processed or the line just read. When called 
immediately upon entrys the next GETSTRING will 
return the command line the program was invoked by, 
if you do not want to use the services of .BSET. 


status = eof( Cunit] )- 

Returns a non-zero value if "unit™ is at end of file, 
If “unit” is not givens the current reading unit is 
used. Once a unit 18 opens end of file is set only 
after an attempted read results in the detection of 
that condition. If “unit” is givens and the unit is 
an output disk files a logical end of file is written 
and a new block begun. 


There are a few other routines which must be mentioneds but 
which will not be described in detail here, READF does 
formatted inputs somewhat Like PRINTF in reverse. It also 
supplies the only convenient means of reading ina floating 
point number. GETNUM and PUTOCT can read or write octal 
numbers. 

GETREC and PUTREC allow you to obtain/transmit a 
logical records including record control words without any 
intervening processing by the i/o package. You must 
understand standard system format before you attempt to use 
GETREC or PUTREC. 
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Q-4. Random file i/o. 

When using random~access files» your program is 
responsible for all input or output done on the _ file. The 
basic unit of i/o is the sector of 64 words. Any number of 
sectors may be read or written at one time, 

To open a random file for readings use the call 


unit = open( filenames, "rb" )- 


The rules are the same as for the regular OPEN calls except 
that the character ‘*b* in the action string indicates’ that 
the file is to be accessed as random. The action ‘*b* stands 
for “binary” ~- we would have used fr‘ for “random"s but it 
is already taken for "read", . 

To open a file for writing or reading and writings use 


unit = open( filenames “wb” )-z 


If you intend to both read and write the file in batchs, you 
should use an action string of “rwb"”. 
Reading is accomplished by 


status = read( units buffers sectors nwds )- 


“buffer” is a pointer to a vector into which the data will 
be reads "sector™ indicates at what sector in the file the 
read will starts and "nwds" indicates how many words will be 
transferred. The first sector number in the file is zero, 
If the status returned is non-negative it 1s a count of the 
number of words transmitteds otherwise it is the negative 
major (bad) status from the i/o. 

Writing is accomplished by 


status = write( units buffers sectors nwds )- 


The arguments have the same meaning as those for READ. The 
GCOS i/o syStem always writes a multiple of 64 words. I f 
the number of words you transmit is not a multiple of 64, 
the unused fraction will be filled with zeros on writing. 


$-2- String operations. 

The B compiler recognizes the existence of strings only 
in that it handles string constants. All operations on 
strings are handled by function calls. Recall that a string 
is a sequence of characters packed four to a word in a 
vector and terminated by the ASCII ‘*0°. 

Functions are available to permit processing characters 
in a string in a “random"™ manner or character by character. 
We will also mention several useful string utilities. 
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6-5-1. “Random” string agrocessing.- 


ch = char strings 1 )- 
Returns the ith character ina string pointed to by 
"string". The count always starts at zero. 


ch = tLchar€ strings i» char )- 
Replaces the ith character in the string pointed at 
by “string” with the character “char™ and returns” as 
its value the character supplied. 


Where characters are in BCD format (6 characters per 
word)s you should use the function CHARB instead of CHAR and 
LCHARB instead of LCHAR. The calling sequences are the same, 
but remember that they take and return BCD characterss not 
ASCII. 


Oe2-2- Sequential string access. 

By using one of the following callss it is possible to 
"open" a string in such a emanner that calls to regular 
sequential i/o routines place characters in or return 
characters from a string. This method is faster than using 
CHAR/LCHARs because the implementation uses hardware 
"tallies". The action ‘s* stands for “string”. 


unit = open( strings "rs" Erepos] ); 

Opens a string so that calls to GETCHAR will return 
characters in the string. A call to GETSTRING returns 
all characters up to but not including the next ‘xn' 
or else up to the terminating '*0*. When the string 
1s exhausteds the unit is in EOF status. If you want 
to start getting characters at some point other than 
the first character positions use the optional 
starting character position "pos", Any library 
function which obtains characters from an i/o unit 
will also work even if the unit is a string. 


unit = open( strings "ws" CFrpos] )-, 
Opens a string so that calls to PUTCHAR place 
characters in the string. PRINTFse PUTSTRINGs PUTNUM 
and other functions will also send characters to the 
string. The function of “pos” is the same _ as 
described above. 


unit = open( strings "as" )2 
Locates the terminating ‘*0* of “string” and sets 
things up so you start writing into the string at 
that point. It is up to you to make sure that the 
vector pointed at by “string” is large enough to hold 
whatever your program puts into it. 
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print( strings formats argls arges «ae )2 
Same as PRINTFse except tit directs its output to a 
strings instead of an open output unit. 


When you call CLOSE on a unit open for output to a strings a 
terminating **0* is placed in the string. 


$6.3<35- String utilities. 


string = concat( strings sls S2e sae JF 

Concatenates the strings "si" through “sn" together 
and places them in string “string”. The output string 
may be used as inputs providing it appears first in 
the list of strings to be concatenated. When called 
with only two argumentss CONCAT efficiently copies 
one string into another. CONCAT returns its first 
argument as its value. 


val = nullstring( string ), 
Returns a non-zero value if the string contains only 
the end-of-string character ‘*0* and zero otherwise. 


val = equal( stringls stringed )-; 
Returns a non-zero value if the two strings supplied 
are identicals and zero otherwise. 


count = length( string )- 
Returns the number of characters in the string 
pointed at by "“string”s not including the terminating 


*xO*. 
newpos = getarg( args strings pos Cedelim] ); 
Starting at position “pos” in. “strings GETARG 


obtains the next group of characters ending with a 
blank and places it in the string pointed to by 
"arg". It returns the position in the string where 
the scan stoppeds so that it can be called repeatedly 
to obtain successive “arguments” from the string. 
If “delim” is supplieds it 3s taken as a pointer to a 
string containing the delimiters which will cause the 
scan to stops the string must include a blank if you 
want the scan to stop on a blank. Leading blanks are 
ignored. GETARG is useful for scanning a command 
line. 


There are a number of other functions which perform 
string oOperationSs including ANYs which determines if a 
given character is in a given strings COMPAREs which 
determines if one string is tlexically greater thans less 
thane or equal to anothers NUMARGs which scans off numbers 
instead of character stringss READFse which can do formatted 
input from a strings and COPYCHs which moves substrings. All 
of these have explain files. 


Waterloo - 48 - September 1978 


rj 


——ail 


al 


6-6. Storage allocation. 

Library functions are supplied which allow you to 
dynamically obtain or release memory in the free storage 
pool, 


addr = getvec( n ); 
Obtains from free core a vector of length "n" plus 
one words and returns a pointer to the vector. Once 
acquired in this manners, the block may referenced 
using subscriptings as in 


x = getvec( 63 )z 
x€1] = al3); 


rlsevec( addres n)-, 
Undoes a GETVEC by releasing the "n" plus one words 
pointed to by “addr™ back to the free memory area. 


All memory allocation is done by manipulating a free 
list. The free list initially includes the so~called "core 
hole”, You can return via RLSEVEC any space which is not on 
the free lists as long as the address of the space is 
greater than the load address of RLSEVEC, If you attempt to 
release memory which is already on the free lists in whole 
or in parts RLSEVEC will immediately abort. 

GETVEC obtains more storage from the operating system 
as required. In TSSe a subsystem 38 aborted with the 
message "not enough core to run job”™ if a request for memory 
cannot be satisfied. In batches GETVEC aborts with a "OK" 
abort code if a request for memory is denied. 

Finallysz we will mention three useful routiness each 
described fully by an explain files which use these calls: 
GETMATRIX will construct and return a pointer to a 
multidimensional matrixs ALLOCATE can be used to obtain a 
dynamic array which will automatically disappear when a 
function returns; and RELMEM will release any free memory 
back to the operating systems in order to reduce program 
S1ZC.% 


O-f. Media conversion. 

Two functions are supplied to let you transliterate BCD 
into ASCII and vice versa. A BCD string consists of a vector 
of words containing the characters packed six to a words 
left-adjusted and padded with blanks. There is no equivalent 
tS the **0' -1f @ BCH string. 


ptr = ascbcd( outputs counts input )-e- 
Takes "count™ characters from the ASCII string 
"input", transliterates them to BCD and places’ them 
in "output". If a '*0° is encountered before “count” 
18 exhausteds bkanks are supplied and also used to 
pad the BCD string to a word boundary. “input™ and 
“output” must be pointers. “output” is returned, 
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ptr = bcdasc( outputs inputs count )- 
Takes "count" BCD characters from "Input", 
transliterates them to ASCII and places them in the 
ASCII string “output”. <Any trailing blanks are 
deleted and the end of string delimiter ‘0° is 
placed at the end of the ASCII string. “input™ and 
"“output™ must be pointers. “output” is returned. 


6-8. Call fortran. 

The function CALLF provides the ability to call FORTRAN 
Subroutiness or any routine which uses the GCOS CALL 
conventions. Howevers, routines so called must not be called 
recursively and must not attempt to do input/output. The 
FORTRAN 1/0 packages,’ and File and Record Control (GFRC), 
which FORTRAN i/o callss are completely incompatible with 8B 
770. 


intval = callf(€ &routines &Sarglis &argesr wee )2 

Converts its arguments to the form of a standard GCOS 
CALL macro and calls the named “routine”. “routine” 
must be referenced in an EXTRN statement and must be 
passed by addresses as shown. The arguments must be 
passed by address also. That iss if an argument 15s 
not a vector pointers you must say "Sarg". Constant 
values must be assigned to a temporary before being 
given to CALLFs, since you can*t say something like 
"82". $$The vatue of a CALLF is the Logical or integer 
value returneds if the routine called is a function 
subroutine. 


floatval = callff{ &routines &arglis &arg2s 22 )2 
Works exactly the same way as CALLFs except that it 
must be used for function subroutines which return a 
floating point result. 


As usuals you are responsible for ensuring the correct 
number and type of arguments are passed. 


6-2. DRLs and MMEs. 
There are two functions provided to tet your B- program 
execute DRL or MME system calls in a reasonable manner: 


drl.drl(number (Cerargis arges weet ) 

Allows direct access to the DRL functions. “Number” 
1s the ORL number to be executeds and any following 
arguments are the words to follow the DRL.~ The A and 
@ registers are set to the values of the externals 
DRL~A and DRL.~Q respectively. After the DRL has been. 
executeds these externals are set to the contents of 
the A and the @Q, It is possible to use a ODORL which 
requires an error exit or a place to go tos since the 
DRL 3s executed in the stacks, using the stack pointer 
of the caller. For examples 
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ZAb/manif/drls 

opts€2] = opts(3]) = 14 

acc.fil( "gcos3/gcos~hir3ic"s optss ret )- 
buf = getvec(600)-,- 
ascbhbcdl(rett+2s6e".mborts")e 
drl.edriCrestor_» ret<<18 | 14 buf<<18 I 1, 

(tra&0777777000000) 1 (Cbuf+512))2 

tras 

printf( "Z24ben", buf+4St+status*4 )- 
rlsevec (buf -600) > 


This code sequences, which obtains a batch error 
message by locating it in the batch error message 
modules uses the value of a label to supply a return 
address to DRL RESTOR, 


mme.smme(€ number Cvsargls arg2s «es J ); 
Functions in exactly the same manner as ODORL.DRLe 
except that it uses externals called MME.A and MME.Q,. 


Ze Using B. 


Leis Compiling/rcunning/debugging. 

The B command 31s the main. tool for preparing B 
programs. If given a source files it will call the compiler 
to read the source and generate a set of object decks. It 
may call the random tibrary editor RANEDIT to place or 
replace modules in a -tabrary. Unless there are fatal 
compilation errorss it always calls the TSS loader to 
prepare a load module, Only the most common use of the B 
command is discussed here, For full details,» see the TSS 
explain file “explain B command", 

To compile and load a source files just Say 


B srcfile 


where "“srcfile”™ is the name of a sequential file containing 
B source statements. If there were no fatal errorsse the load 
module is left in a random file called ".h", which is 
created as temporary if necessary. If you have a quick- 
access permanent file called ".h"s it is used instead. This 
file is “grown” automatically by the TSS loader as required. 

You could have forced the B to initiate execution by 
Saying 


B -=go source-file 
buts if your program plans to interpret a command lines it 


is preferable to use the command "go"s Like 


September 1978 - 51 =- Waterloo 


i ee 


| 


GO-afal: ares seas 


which will run the load module in "sh" with the given 
command line, 

Your program will probably not work correctly the first 
time. Usuallys undebugged B programs are aborted by TSS for 
some reason such as "memory fault"s “address out of range", 
etc. These errors automatically force a memory dump to be 
written to a temporary file called “abrt"™. 

Once you have the dumps you can inspect it using the 
post-mortem debugger PMDs. which will allow you to see a 
traceback of the calls in effect at the time of the fault, 
as well as examine the state of tocal and external 
variables, 

It may be that your program does not perform correctly, 
but does terminate normally. You can call the B function 


abort(), 


at strategic points to force a dump to be taken, 

PMD by itself may not be sufficient to put the finger 
on your program's problems. It is always advisable to use 
frequent calls to PRINTF or DUMPA to supply debugging 
information, 

For full details on PMD, see the TSS explain file 
"explain pmd"™, 

There are a few other options in the 8B command which 
you may find useful. If you find you are allocating too 
many AUTO variabless so that your program violates the stack 
limit and overwrites your own codes you can specify a larger 
stack by using the "Stack=nnn" options as in 


B src.eb stack=/700 


Fully debugged production programs need not carry the debug 
tables with them when running. Use the "-Nodebug”™ option to 
turn off the loading of debug tables. 


B -nodebug src.b 


You can also ask for a smaller stacks to save memory. The 
default size is 500 words. 

If you change one routine in a programs, you usually 
have to recompile the whole program, It is sometimes more 
convenient to store routines in a random library. That ways 


you need only recompile one routine or one group of routines 


to make a changes The B command provides an interface with 
the RANEDIT subroutine library editor. To start withs, if 
you say 


B srceb ranelib=/lib -clear 
the routine or routines in srceb will be edited into the 
Library "“"Lib"s which will be created if necessary according 
to the usual B file accessing conventions and tinitialized 
(cleared) by RANEDIT. To add new routines or replace old 
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onesse you simply say 
B srcil.b ranelib=lib 


Your program can load from a user library by specifying the 
"Library=" options as in 


B srceb library=mylib 


When the loader 1s calleds the library specified by the “r=" 
option is searched along with any other libraries = given 
using the “l=" option. Libraries are always Searched in the 
order given on the command line. To delete routines from a 
Librarys it 18 necessary to use the TSS command RANEDIT (see 
the TSS explain file). 

The options to the B command are of the forms 


keyword=string 
-keyword 


In both casess the keyword may be abbreviated using the 
following rules In the explain files, a keyword is shown 
with upper and lower case letters. A valid abbreviation 
must include those letters which are in upper cases along 
with any other Letters in the order in which they appear. 
For examples valid abbreviations of the "Ranelib=filename” 
option include 


rane=filename 
rlib=fitlename 
r=filename 


Various options mays of courses be combined onto one 
command Line and abbreviateds as in the following example: 


B cmdlib/s/roff h=cmdlib/roff lL=b/xlib s=250 -n 
This command line uses the option "Hstar=filename”".s which 


allows you to designate the file into which the generated 
load module will be placed. 


£.2. Compiler/lLoader interface. 


When processing a source programs, the compiler 
generates not one but a set of object decks and places them 
onto a temporary file called “b*" - the input file for the 
loader. This file 1s also used as input to the random 
library editor RANEDITs if it is called, 

The compiler always generates an object deck containing 
the B stack areas, which is either 500 words or the size 
specified in the “Stack=nnn" option. This object deck atiso 
contains the externals defined before the first function 
definitions if any. 

A separate object deck is generated for each function, 

An object deck 31s also generated for each group of 
externals between function bodies and one for the group of 
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externals after the last function bodys if any. 


f£-3- Using tabs for readability. 

When you type in a B programs you will probably want to 
leave indentations in order to make clear the order of 
nesting of your source statements, 

Spaces are the logical thing to uses but they are 
tedious to type and it is difficult to be consistent. At 
Waterlooe we usually suggest you use an ASCII tab character 
as one unit of indentation. This has the advantage thats 
when you use TLIST to get a listing of the sources the TLIST 
command automatically expands tabs into the right number. of 
blanks» so your program comes out indented the way you want. 
Alsovs, you can use the "OTD" directive inside the QED text 
editor so that its toos expands tabs when displaying a line. 

It is not possible to use a "tab character” which is 
not an ASCII tab. 


Z-4- Some pitfalls. 
If you have a floating point values it is not a good 
idea to say 


ot: Ftoatvaet 2} ees 


because the code generated checks to see if the contents of 
"floatval” is Logically non-zero, rather than to see if the 
contents are equal to ae floating-point zero. Since a 
floating point zero may not in fact be a word containing all 
zero bits (since the exponent may be non-zero and is part of 
the word) it is better to try 


if€ floatval #A!= 0.0 ) aa. 


In generals floating point is tricky to use in Bs since 
there can be no type checking. You must constantly watch out 
for erroneous constructs such as using “"-3,0" instead of 
i= 35. 0". 


Alsos here 1s a common pitfall in the use of string 
constants. If you say 


auto x{20J; 
x = "a string”; 


The cell x 1s changed to point to the storage occupied by 
the string and you lose the ability to address the 21 words 
originally reserved for the vector. What you really want to 
Say 1S 


auto xs 
x = "a string”, 


Alternativelys if you had wanted to initialize the vector 
with the strings you should have used the library function 
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CONCAT to copy in the string: 


auto x(C20J- 
concat( xs "a string”); 


or else you could have defined “x” as an initialized 
external. 


Finally» something should be said about the size of a vector 
and the length of a string. 

When you declare a vector of size "n"s you know that it 
will actually occupy "n + 1" wordss because the vector is 
indexed starting at zero. Every library routine to which 
you must pass the size of a vector observes exactly the same 
convention. 

In practices if one needs a vector of size "n", then 
one declares it to be of size "n"» and then ignores” the 
zeroth or the nth word. Thus a FOR loop indexing through 
the vector might run in either of two ways: 


Tor <3 SO 4 <: Ae. FH 4. Dot 
act -4. 8. 13:..4 <2. ni <##t: 2 : wax 


Strings also can be indexed intos using library 
functionss using a zero origins but at first it might appear 
to you that a string with "n" characters in it has tlength 
"av"» . rather than “n + 1”. For examples the string “abcdef” 
has six characters and its length is six. But recall that, 
by definitions a string is terminated by a **0* characters 
which you do not see. If you include the trailing ‘'*0° in 
the counts then a string of length “"n" actually contains "n 
+ 1" characters. 

Alt library functions which require the length of a 
string need the number of characterss not including the 
*"*0". The Library function LENGTH returns just that number. 
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Appendix A 
B- escape sequences. 


There are two sets of eScape sequenceSs one for use inside 
string or character constantse and the other for use out- 
side. 


: Escape sequences are used In character constants” and 
strings to obtain characters which for one reason or another 
are hard to represent directly, They consist of **-*» where 
"wt TAS Ot: Deteu: 


«0 end of string (ASCII NUL = QO00) 
xe end of string (ASCII NuL = O00) 
* ( { - left curly brace 

x) } =~ right curly brace 

x< C - Left square bracket 

*> J - right square bracket 

*t tab 

xk * * 

*? 9 

* oe 

*n newline 

xr carriage return (no line feed) 
* f ASCII formfeed 

xb backspace 

wy vertical tab 

* x rubout Coctal 177) 

x#nnn nnn is 1-3 character octal number 


2. The following are escapes used outside character and 
string constants on terminals (such as the 2741) which do 
not have on their keyboards some of the characters used by 
B. If you use QEDs it is nicer to use the QED escapes’ for 
these charactersse $o that when you shift to an ASCII ter- 
minal you can see the characters the way they ought to ap- 
pear. 


$ ¢ { - left curly brace 

$ ) } = right curly brace 

$< {[ ~ left square bracket 
$> J - right square bracket 
$+ ! - or-bar 

$- (or cent~sign) - upwarrow 
$a a - at-sign 

$° “= grave accent 
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Appendix 8 
B - Binding strengths of operators, 


Operators are listed from highest to lowest binding 
Strengths there is no order within groups. Operators of 
equal strength bind left to right or right to teft as in- 
dicated. 


+¢ -- « & = ! ~*~ f#=- # HH Cunary) CRLI 
>> << ELR] 


& CLRIJ 

* CLRIJ 

i CLRIJ 

x | % te #/ Chinary) CLRIJ 

+ - H=- #+ [CLR] 

ss !2 > < <= >= #== #!I!= #> HS H<= Hes HI'= Hz 
&& 

1] 

7% CRLJI 

= += -= etc. (Call assignment operators) CRLJ 
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Appendix C 
B - B compiler error messages. 


This is a List of diagnostics known to be generated by 
the B compiler. There may be others. 

In each descriptions "nn" means a line numbers, while 
“name” is some identifier name. The name of the source file 
1s usually also given, 

Any message not preceded by “warning: " is a fatal er- 
ror. If there is a fatal errors neither the loader nor the 
random library editor will be called. 


syntax error at line nn Cin file <name>] 
This is the most common diagnostic and it could mean 
almost any kind of error. Most oftens it means a 
semicolon is missing or the number of open curly 
braces "{" does not match the number of close curly 
braces "}", in which case the line number will be the 
number of the last line in the last file being 
processed plus one. This may be due to neglecting to 
end a string constants. character constant or comment. 
You also get this message if you use a keyword in an 
inappropriate contexts, such as an AUTO statements if 
you neglect to define a manifests or 1f you attempt 
to redefine a manifest. 

<identifier> undefined in function <name> 
An identifier in the named function has not been 
referenced by an EXTRN or AUTO statement and has not 
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been used as a label. The Line number given is the 
last line of the function being compiled. 

warnings /* inside comment ees 
This 18 a warning onlys but there will probably be a 
syntax error later ons since comments may not. be 
nested. After reading a "/*", the compiler skips all 
text until a “*/" is encountereds if there is a com- 
ment inside a comments then the compiler will attempt 
to compile the remainder of the outside comment. 

end of file in comment 
This usually indicates that you forgot to end a com- 
ment with the terminating ‘**/', 

warnings newline in constant not preceded by **x!' 
The most probable cause 43S that you forgot to ter- 
minate a string or character constant with the ap- 
propriate delimiter, If this is the cases you will 
surely get asyntax error tater. If you want a 
"real" newline inside the constants but no warnings 
use the escape sequence ‘*n*. If the constant 1s a 
string constant which is too long to fit on one line, 
precede the newline with a ***s the newline will be 
discarded. When the warning is issueds the newline 
3s kept. 

invalid octal constant 
An integer beginning with the digit zeros, which is 
thus assumed to be an octal constantse contains a 
character other than the digits zero through seven. 

character constant too long 
A character constant may not contain more than four 
characterss although each character may be a two 
character escape sequence. 

bed constant too long 
A BCD constant contains more than six characters. 

exponent too large in constant 
The exponent of a floating point constant is _ too 
large or too small to represent in the hardware, 

attempt zero division 
In evaluating the constant part of an expressions the 
right operand of a division or remainder operator was 
found to be the constant zero. 

invalid & prefix 
The “&" operator has been used in an invalid contexts 
such as “"&x = y"™, 

warnings found +tr-value 

warning: found -~-r-value 
You get this if you say something like "t+x++t+", 

invalid $ escape sequence 
An escape sequence beginning with *$* is not known to. 
the compiler. 

invalid unary operator 
The compiler discovered you trying to use a binary 
operator ina unary manner. 

invalid = 

invalid *= 

invalid >>= 
The expression on the left hand side of an assignment 
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operator does not have an lvalue. 

invalid ++ 

invalid -- 
The expression operated upon by the ‘*++* or ‘==! 
Operator does not have an lvalue. 

invalid label 
A name used as a labei has previously been declared 
as EXTRN or AUTO in the current function. 

invalid break 
The compiler found a BREAK statement which was not 
Inside a FOR» WHILEs, DO-WHILEs REPEAT or SWITCH 
statement. 

invalid next. 
The compiler found a NEXT statement which was not in- 
side a FOR» WHILEs DO-WHILE or REPEAT statement. 

invalid constant expression 
Will happen if you try to use a string constant in a 
constant expression. 

invalid operator 
This 1s one of those "cannot happen” messages. If it 
does happens please Submit an error report. 

auto array too large 
You attempted to declare an auto vector with a dimen- 
sion greater than 1000 words. It is better to use an 
external vector or else GETVEC the Spaces Since AUTO 
variables are allocated on the stack and stack space 
is Limited. 

extrn array too large 
This will happen if you declare an external vector 
CVRe "*£ 54020" 4 

invalid case 
A CASE Label 1s not inside a SWITCH statement, 

invalid default 
A DEFAULT Label is not inside a SWITCH statement. 

default already supplied 
More than one DEFAULT Label in a SWITCH statement, 

invalid case operator 
The only bound operators permitted in a CASE are <~» 
>e >= and <=, 

%Zfilename ignored=- too many open files 
This usually happens when you include ae file which 
includes itself, 

bad input character: <ddd> (octal) 
A character encountered in the input stream outside 
of a string or character constant has no meaning’ for 
the compiler. This might be a backspace ofr some con- 
trol character typed in by mistake. Since it may be 
non-printings the value of the offending character is 
displayed in octal, 

rewrite this expression 
A subscripting expression is too involved for the 
code generator to handle. Try breaking up the expres- 
$10nN Into more than one statement. 

manifest nesting too deep 
This will occur when you have manifest constants 
whose evaluation involves other manifest constants. 
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This will occur if you have a series of manifest 
definitionss each of which is defined in terms of the 
previous manifest. This is ok in GMAPs but not in B.- 

warnings: program size > 32k 
One of the object decks generated will require more 
than 32K words to load. You may get this warning if 
you declare several very large external vectors. 
Howevers it might also mean the loader will be 
aborted by TSS due to “not enough core to run job”. 

expression too complex 

no tree space 

no stack space 
An expression is too complex for the compiler to 
evaluate. Try simplifying it by breaking it up into 
two or more expressions. 

The constant <ddd> occurs in two case labels 
The same constant appears in more than one CASE label 
in a SWITCH statement. The value of the offending 
constant is printed in decimal. 

the upper range <ddd> overlaps the lower range <ddd> 
The compiler has detected overlapping bounds inside a 
SWITCH statement. The values of the bounds are 
displayed in decimal. 

The constant <ddd> is in the range <ddd>3:3<ddd> 
The compiler has detected a CASE constant which 1s in 
the range of a range case or relational cases, ina 
SWITCH statement. The numbers are given in decimal. 
If something conflicts with a relational cases then 
the bounds generated for the relation are shown. For 
examples the bounds for “case > O3:”" would be 
"7:2 2345597583567" « 

Initializers nested too deeply 
An external declaration has initializers in braces 
nested to a depth greater than seven. 

external redefined 

auto variable redefined 

label redefined 

auto array name redefined 
The compiler has detected an attempt to redefine a 
symbol which has already been defined to the current 
function body. 

no space for symdef ) 
There are too many external definitionss try dividing 
them into two groups by either compiling them 
seperately or placing a function in between. This er- 
ror is almost never encountered. 

no space for symref 
There are too many external references in a function 
definitions try simplification. This error is almost 
never encountered, 

warnings #<text> ignored 
A line beginning with a *#', which is taken to be a 
compiler directives does not contain a recognizable 
directive. The line is ignored. 


TSS loader warning messages: 
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<w> name undefined 
This 1s a loader messages which indicates that an 
external variable referenced by one of your func- 
tionss or a library functions remains undefined after 
all libraries have been searched. If your program 
references the named external it will abort with a 
MME fault in TSS» or with a USER*S L171 MME GEBORT in 
batch. 

<w> name loaded previously 
The loader has discovered a function or external with 
the same name as one atready loaded. The most 
probable reason is that you have two or more dif- 
ferent names whiche when truncated to six characters 
end up being the same. The toader ignores all but the 
first. Make sure alt your externals and function 
Names are unique in their first six characters, 
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Appendix D 


Routines in the B library are Listed below, 

with a brief explanation. For greater details type 
explain b lib <name> 

where <name> is the routine name. 


eabbrv - check command abbreviation for .bset 

eboff ~ define a debugger breakpoint 

ebset - breaks up a command line into useful chunks 
eprofile - generate execution profile of a B program 

read - change the current reading unit 

ewrite - change the current writing unit 

abort - abort jobs producing dump and returning status 
abs - absolute value of an integer 

acc.file - access file 

acclib - access system libraries 

addvec - add more space to a vector obtained from getvec 
aft.name - get aftname/filecode for a unit 

allocate - get storages which may be automaticatly released 
any - check if a character appears in a string 

apply - apply callers args to another call 

ars - arithmetic right shift 

ascbcd - convert an ascii string to a bcd vector 

attach - associate file name with file code for DRL TASK 
back.d - pass a backdoor file to sysout from tss 
backspace - backspace an output unit by one character 
bcedadd - add two bcd numbers 

bedasc - convert characters from bcd to ascii 

bedsub - subtract two bcd numbers 

binbcd - convert a binary number to bcd 

c.fread - make unit a reading unit 

Cewrite - make unit a writing unit 

call f -~ call Fortran program from B routine 
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callff 
catscaf 
char 
charb 
charp 
chcksm 
close 
cmpc 
cmplog 
cmpvec 
column 
compare 
concat 
copy 
copych 
date 
datejul 
datesi 
datev 
daymon 
div 
drlwdrl 
drljsts 
dtoa 
dump 
dumpa 
ebcasc 
eof 
equal 
error 
exit 
extern 
fildes 
flush 
fpinput 
fpo 
fsfile 
getarg 
getbin 
getc 
getchar 
getdate 
getline 


getmatrix 


call Fortran floating point function from B 
obsolete ~- use scaf 

extract a character from an ascii string 
extract a bcd character from a bcd string 
create a charp character pointer 

compute a checksum. 

close currently open file 

compare two strings via EIS CMPC instruction 
compare two values logically Cunsigned) 
compare one B vector to another 

find the current output column 

compare two B strings 

concatenate a series of strings 

copy contents of one vector into another 
replace a substring by another substring 
return Current date in ascii 

obsolete - use datesi 

convert date in string to standard integer form 
return date in vector of integers 

convert date to dd/mmm/yy format 

integer divide with uniform direction of truncation 
execute a given TSS drl (system call) 

obtain status of batch job 

obsolete - use print 

dump vector in multiple formats 

dump an array 

convert string to ascii from ebcdic 

test or write end-of-file 

compare two strings for equality 

print error messages then exit 

end job and return status 

possibly useful externals in the library 

get file descriptor 

write out contents of current output buffer 
convert string to floating point binary 
obsolete - use print 

space input file forward one file 

extract (command) arguments from a string 

read vector of binary data from sequential file 
read a characters temporarily switching units 
get a character from an input stream 

put date into the form mm/dd/yy 

read a lines with terminating "*n"s into a string 
dynamically allocate a matrix 


getmedia find out the media code of a file 

getnumb read anumber from the current input unit 
getrcp return pointer to next logical record 

getrec return next logical records with rcw 

getstr read atines less its trailing "*n"»s into a string 
gettape ask for a tape from gcos 

getumc get userid of current user 

getvec dynamically allocate a vector 

gnumber extract number from string 

gotoss execute a TSS commands never to return 

gtb execute a gtb instruction 

hist overview of the histogram package 
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histdestroy ~- free space used by a histogram 
histinit - allocate and initialize a histogram 
histogram - add a point to a histogram 
histprint - print accumulated histogram 
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incrun - tell if a user is in a CRUN and not in $*S$TALK 
intrequest - handle breaks from the terminal 

intss tells whether running in tss or not 

1oerrors obsolete > use open 

juldate obsolete - use sidate 

lchar replace a character in an ascii string 

Lcharb replace a bcd character in a bed string 

Length return the length of a string 


lowercase 


turn alphabetics in a string to lower case 


Linumb return number of current line of a file 
istar replace a character using a charp pointer 
main entry to program from the operating system 
ma xX maximum value of two integers 

min minimum value of two integers 

mme.mme execute a given batch mme ane call) 
movelr perform EIS MLR instruction 

mover | perform EIS MRL instruction 

nargs return number of arguments to a function 
nobrks count times break key hit 


nullstring 


numarg 
open 


overflow 


check for null string 

extract numeric argument from a character string 
open string or file for reads write or append 
test and reset overflow indicator 


pasust execute a tss drl pasust 

peek peek at memory 

pnmatch perform simple pattern match (egs on pathnames) 
print write (with format) to string 

printf formatted output 

prompt printf only if current reading unit is a terminal 
putasc direct ascii characters to output stream 

putbecd direct bcd characters to output stream 

putbin write vector of binary data to sequential file 
putc write a characters, temporarily switching units 
putchar send a character to the writing unit 

putnumb output decimal numbers 

putoct output octal numbers 

putrec outputs unprocesseds a record to a sequential file 
putstr output a string using eis 

asort obsolete - use shellsort 

ranerd obsolete - use read 

rem remainder of division as per function div 
reread back up to start of input Line 

rotate rotate a word n bits to the left or right 

rand generate pseudo-random numbers 

rd.ran obsolete - use read 

read disc i/o routines (unit oriented) 

readf. formatted input 

relmem release all free memory 

remoyv remove file from AFT given pathname 

reset non-local goto 

retfil remove a file from the aft (used with acc.fit) 
rewind rewind an open file 
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rscr 
rstpsw 
sbar 

scaf 

scan 

scm 
setmedia 
setpopsw 
shellsort 
Sidate 
sleep 
smc.hash 
star 
strings 
strip 
Swapdescr 
system 
t2741 
tabset 
tally 
tallyb 
tape 

task 

tick 

time 
tr9to9 
trace 
trim. 
trtest 
ttyn 
ungetc 
uppercase 
vector 
wdleng. 
xlate 
zero 
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read system controller clock 

turn off switch word bits by ExcluSive-or 
find size of allocated memory 

parse pathname into Filsys format 

extract delimited substring of a string 
perform EIS SCM or SCMR instruction 
change media code of output file 

set switch word by ORing 

a Shell sort 

standard integer date to string 

wait for specified interval 

calculate smc "hash" bucket for a given user ID 
pick up a character using a charp pointer 
working with strings via i/o cails 

Start stripping Line numbers from input 
change program descriptors 

execute a TSS command 

check if terminal is a 2741 


establish settings for tab expansion in 1/0 package 


create tally to bcd string 

create tally to ascii string 

describes tape i/o support for batch b programs 
submit a batch job via DRL TASK 

return cpu time for current user 

return time of days or convert a time in pulses 
translate any 9=bit character code into another 
how to invoke the call/return trace 

remove trailing blanks from a string 

perform an EIS translate and test 

determine if I/0 is to the terminal 

put a character back to a reading unit 

convert lower case alphabetics to upper case 
getvec and initialize a vector 

return word length in bits 

perform EIS move with translate 

Initialise a B vector to some value 
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